[go: up one dir, main page]

login
A061330
Primes with 18 as smallest positive primitive root.
2
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,1
MATHEMATICA
Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 18 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 18 &] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 25 2001
EXTENSIONS
More terms from Robert G. Wilson v, May 11 2001
STATUS
approved