OFFSET
0,2
EXAMPLE
a(4) = 27493 because 27493^2+1 = 2 * 5 ^ 2 * 17 ^ 4 * 181.
MATHEMATICA
b=4; n17=17; jo=Join[{0, b}, Table[n17=17*n17; b=PowerMod[b, 17, n17]; b=Min[b, n17-b], {99}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 04 2012
STATUS
approved