A061331 Primes with 19 as smallest positive primitive root.

191, 1559, 2287, 2689, 4751, 5113, 5711, 6361, 9239, 10391, 10799, 14281, 14407, 14951, 16631, 17761, 19087, 19489, 19843, 21121, 22129, 24049, 25321, 27541, 28031, 28081, 34319, 34919, 36217, 36241, 36599, 37489, 40031, 41761, 42719

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A001918, A001126, A019346.

Sequence in context: A144327 A107955 A264844 * A177683 A209549 A218595

Adjacent sequences: A061328 A061329 A061330 * A061332 A061333 A061334

Keyword

nonn

Author

Klaus Brockhaus, Apr 25 2001

Status

approved