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