OFFSET
1,1
MATHEMATICA
aa = {}; Do[p = Prime[n]; If[Mod[p, 1024] == 1, k = 1; While[ ! Mod[k^512 + 1, p] == 0, k++ ]; AppendTo[aa, k]], {n, 40000}]; aa
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Oct 22 2012
STATUS
approved