OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
nn = 200; Select[Range[3, nn, 2], PrimitiveRoot[#] =!= 2 &] (* T. D. Noe, Sep 19 2012 *)
PROG
(PARI) forstep(p=3, 200, 2, if(znorder(Mod(2, p))!=eulerphi(p), print(p)))
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Sep 17 2012
STATUS
approved