OFFSET
0,2
EXAMPLE
a(3) = 296344 because 296344^2+1 = 101 ^ 3 * 85237.
MATHEMATICA
b=10; n101=101; jo=Join[{0, b}, Table[n101=101*n101; b=PowerMod[b, 101, n101]; b=Min[b, n101-b], {99}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 04 2012
STATUS
approved