login
A061740
Primes with 38 as smallest positive primitive root.
1
55441, 138889, 343561, 441169, 469561, 497351, 555361, 560641, 695809, 740041, 803591, 844321, 851041, 857471, 997751, 1016401, 1071841, 1171801, 1180537, 1220041, 1423969, 1425601, 1495561, 1506121, 1714441, 1740649, 1747201, 1795369, 1842481, 1849681, 1858081
OFFSET
1,1
LINKS
MATHEMATICA
Prime[ Select[ Range[ 100000], PrimitiveRoot[ Prime[ # ] ] == 38 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 38 &] (* 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(21)-a(30) from Vincenzo Librandi, Sep 22 2013
STATUS
approved