A061325 Primes with 12 as smallest positive primitive root.

4111, 7841, 10111, 15391, 15991, 16061, 20011, 21031, 22699, 32299, 32957, 35911, 43963, 45127, 45631, 47431, 49831, 51199, 53731, 58111, 59671, 60331, 64231, 74311, 76039, 78079, 81331, 81761, 83311, 83431, 98911, 102871, 104729, 108907

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

Programs

Mathematica

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