login
A061738
Primes with 35 as smallest positive primitive root.
1
64609, 93481, 290041, 319057, 334777, 549121, 660097, 663001, 856441, 999553, 1117681, 1217833, 1253761, 1428769, 1647097, 1678249, 1803097, 1834631, 1940041, 2117593, 2219881, 2425991, 2434657, 2765929, 2784937, 2852041, 2980993, 3279431, 3378049, 3405841
OFFSET
1,1
LINKS
MATHEMATICA
Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 35 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 35 &] (* 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(14)-a(30) from Vincenzo Librandi, Sep 22 2013
STATUS
approved