login
A061734
Primes with 30 as smallest positive primitive root.
1
124153, 133261, 140071, 209353, 343381, 384913, 948391, 984817, 1151473, 1189471, 1282909, 1516759, 1517101, 1629031, 1666711, 1736617, 1819273, 1918879, 1998793, 2142271, 2176831, 2201671, 2306221, 2314231, 2526781, 2534101, 2557501, 2566261, 3131353, 3150391
OFFSET
1,1
LINKS
MATHEMATICA
Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 30 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 30 &] (* Robert G. Wilson v, May 11 2001 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, May 06 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 11 2001
a(12)-a(30) from Vincenzo Librandi, Sep 22 2013
STATUS
approved