OFFSET
0,2
EXAMPLE
a(3) = 344464 because 344464^2+1 = 37 * 89 ^ 3 * 4549.
MATHEMATICA
b=34; n89=89; jo=Join[{0, b}, Table[n89=89*n89; b=PowerMod[b, 89, n89]; b=Min[b, n89-b], {99}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 04 2012
STATUS
approved