A061328 Primes with 15 as smallest positive primitive root.

439, 3631, 4657, 8681, 16633, 21559, 28393, 30937, 32257, 32353, 33811, 33871, 36793, 36871, 41851, 42193, 46649, 48673, 51631, 58237, 59053, 59497, 63691, 71011, 71671, 82039, 84503, 85297, 88591, 88873, 91961, 93937, 94033, 101839

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

Subset of A070269.

Programs

Mathematica

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