OFFSET
0,2
EXAMPLE
a(3) = 51412 because 51412^2+1 = 5 * 17 * 61 ^ 3 * 137.
MATHEMATICA
b=11; n61=61; jo=Join[{0, b}, Table[n61=61*n61; b=PowerMod[b, 61, n61]; b=Min[b, n61-b], {99}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 04 2012
STATUS
approved