A216848 Odd numbers for which 2 is not a primitive root.

7, 15, 17, 21, 23, 31, 33, 35, 39, 41, 43, 45, 47, 49, 51, 55, 57, 63, 65, 69, 71, 73, 75, 77, 79, 85, 87, 89, 91, 93, 95, 97, 99, 103, 105, 109, 111, 113, 115, 117, 119, 123, 127, 129, 133, 135, 137, 141, 143, 145, 147, 151, 153, 155, 157, 159, 161, 165, 167

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

Cf. A002326, A001122, A216838.

Sequence in context: A204740 A244536 A237054 * A065566 A329485 A154618

Adjacent sequences: A216845 A216846 A216847 * A216849 A216850 A216851

Keyword

nonn

Author

V. Raman, Sep 17 2012

Status

approved