OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Christian Elsholtz, Almost all primes have a multiple of small Hamming weight, arXiv:1602.05974 [math.NT], 2016. See p. 6.
MATHEMATICA
Select[Prime[Range[300]], Mod[#, 4] == 3 && 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