OFFSET
0,1
REFERENCES
Henri Cohen, A Course in Computational Algebraic Number Theory, Springer Verlag, (1993)
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..300
Joerg Arndt, Matters Computational; Ideas, Algorithms, Source Code, (ยง1.5.1, p.13).
MATHEMATICA
With[{n = 20},
Module[{p = NextPrime[2^n]},
While[FreeQ[PrimitiveRootList[p], 2], p = NextPrime[p]]; p]]
PROG
(PARI) a(n)=forprime(p=2^n+1, , if(znorder(Mod(2, p))==p-1, return(p))); \\ Joerg Arndt, Nov 21 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Morgan L. Owens, Nov 21 2014
STATUS
approved