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,1

Links

T. D. Noe, Table of n, a(n) for n=1..1000

Mathematica

Prime[ Select[ Range[100000], PrimitiveRoot[ Prime[ # ] ] == 18 & ] ]
(* or *)
Select[ Prime@Range@100000, PrimitiveRoot@# == 18 &] (* Robert G. Wilson v *)

Crossrefs

Cf. A001918, A001126, A019345.

Sequence in context: A031833 A155557 A015315 * A195656 A195651 A294752

Adjacent sequences: A061327 A061328 A061329 * A061331 A061332 A061333

Keyword

nonn

Author

Klaus Brockhaus, Apr 25 2001

Extensions

More terms from Robert G. Wilson v, May 11 2001

Status

approved