OFFSET
1,1
COMMENTS
A076339(n): primes of form 512*n+1.
MATHEMATICA
aa = {}; Do[p = Prime[n]; If[Mod[p, 512] == 1, k = 1; While[ ! Mod[k^256 + 1, p] == 0, k++ ]; AppendTo[aa, k]], {n, 20000}]; aa
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Oct 22 2012
STATUS
approved