Anch'io li ho fatti al pc, però mi viene un po' diverso.Gebegb ha scritto:Va bene.
In effetti i calcoli sono brutti, io li ho fatti al pc.
Comunque c=7717503920.
(Più che una metasoluzione, la sua si direbbe una soluzione non costruttiva.)
Codice: Seleziona tutto
{a, b} = Last@PolynomialExtendedGCD[x^5 + 5, (x + 1)^5 + 5, x];
p = 1/GCD[Sequence @@ CoefficientList[a, x],
Sequence @@ CoefficientList[b, x]]
z = Simplify[p a]
w = Simplify[p b]
z (x^5 + 5) + w ((x + 1)^5 + 5) ==
Simplify[z (x^5 + 5) + w ((x + 1)^5 + 5)]
PrintTemporary[
Row[{ProgressIndicator[Dynamic[i], {1, p}], " ",
Dynamic[N[100 i/p, 2]], "% : " Dynamic[i]}]];
Catch@For[i = 1, i <= p, i++,
If[Mod[i^5 + 5, p] == 0 && Mod[(i + 1)^5 + 5, p] == 0, Throw[i]]]
Row[{"Il primo è p=", p, ", il valore di x è x=", i, "."}]