login
A061331
Primes with 19 as smallest positive primitive root.
1
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
MATHEMATICA
Prime[ Select[ Range[4500], PrimitiveRoot[ Prime[ # ] ] == 19 & ] ]
(* or *)
Select[ Prime@Range@4500, PrimitiveRoot@# == 19 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 25 2001
STATUS
approved