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