OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[300]], Mod[#, 4] == 1 && PrimitiveRoot[#, 2] == 2&] (* Jean-François Alcover, Jul 22 2018 *)
PROG
(PARI)
{ forprime (p=3, 10^4,
rp = znorder(Mod(+2, p));
rm = znorder(Mod(-2, p));
if ( (rp==p-1) && (rm==p-1), print1(p, ", ") );
); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Joerg Arndt, Jun 03 2012
STATUS
approved