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