A061738 Primes with 35 as smallest positive primitive root.
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
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..730
Programs
-
Mathematica
Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 35 & ] ] (* or *) Select[ Prime@Range@100000, PrimitiveRoot@# == 35 &] (* Robert G. Wilson v, May 11 2001 *)
Extensions
More terms from Robert G. Wilson v, May 11 2001
a(14)-a(30) from Vincenzo Librandi, Sep 22 2013