A061323 Primes with 10 as smallest positive primitive root.

313, 337, 1021, 1297, 1783, 1873, 2137, 2971, 3221, 3313, 4051, 4339, 5233, 5531, 5743, 6073, 6301, 6337, 6553, 6793, 7177, 7753, 8233, 9109, 9697, 9829, 9931, 10273, 10781, 11059, 11149, 11257, 11617, 11941, 11971, 12143, 12457, 12577

Offset: 1

Author

Klaus Brockhaus, Apr 24 2001

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A001918, A001126, A001913.

Programs

Mathematica

Prime[ Select[ Range[2000], PrimitiveRoot[ Prime[ # ] ] == 10 & ] ]
Select[ Prime@Range@1510, PrimitiveRoot@# == 10 &] (* Robert G. Wilson v, May 11 2001 *)

PARI

is(n)=n>9 && isprime(n) && znorder(Mod(2,n))Charles R Greathouse IV, Apr 24 2015