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,1

Links

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

Mathematica

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

Crossrefs

Complement of A001123.

Sequence in context: A193213 A153135 A038615 * A104293 A153002 A042999

Adjacent sequences: A280927 A280928 A280929 * A280931 A280932 A280933

Keyword

nonn

Author

Vincenzo Librandi, Jan 11 2017

Status

approved