A280930 Primes for which 3 is not the smallest primitive root.

2, 3, 5, 11, 13, 19, 23, 29, 37, 41, 47, 53, 59, 61, 67, 71, 73, 83, 97, 101, 103, 107, 109, 131, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 211, 227, 229, 239, 241, 251, 263, 269, 271, 277, 293, 307, 311, 313, 317, 337, 347, 349, 359, 367, 373

Offset: 1

Author

Vincenzo Librandi, Jan 11 2017

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..7700

Crossrefs

Complement of A001123.

Programs

Mathematica

Select[Prime[Range[1, 100]], PrimitiveRoot[#] =!= 3 &]
Select[Prime[Range[100]],PrimitiveRoot[#,1]!=3&] (* Harvey P. Dale, Jan 01 2018 *)