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