A061327 Primes with 14 as smallest positive primitive root.

1031, 1489, 1871, 3001, 4391, 5641, 6581, 8011, 12541, 12671, 12973, 17209, 17449, 18911, 21319, 21649, 22441, 24001, 24469, 24841, 28751, 31849, 35803, 38281, 38569, 38861, 40429, 40751, 41467, 42409, 43609, 45289, 50587, 51169, 53161

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, A019342.

Programs

Mathematica

Prime[ Select[ Range[5500], PrimitiveRoot[ Prime[ # ] ] == 14 & ] ]
(* or *)
Select[ Prime@Range@5500, PrimitiveRoot@# == 14 &] (* Robert G. Wilson v, May 11 2001 *)