A061330 Primes with 18 as smallest positive primitive root.
53173, 87541, 100621, 124909, 137341, 164341, 192611, 226549, 230101, 241861, 260317, 262909, 288661, 309541, 352309, 371029, 425701, 458701, 461891, 463741, 476029, 490741, 491461, 562021, 569869, 627661, 640069, 661621, 664141, 690541
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Programs
-
Mathematica
Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 18 & ] ] (* or *) Select[ Prime@Range@100000, PrimitiveRoot@# == 18 &] (* Robert G. Wilson v *)
Extensions
More terms from Robert G. Wilson v, May 11 2001