A061323 - OEIS

A061323

Primes with 10 as smallest positive primitive root.

313, 337, 1021, 1297, 1783, 1873, 2137, 2971, 3221, 3313, 4051, 4339, 5233, 5531, 5743, 6073, 6301, 6337, 6553, 6793, 7177, 7753, 8233, 9109, 9697, 9829, 9931, 10273, 10781, 11059, 11149, 11257, 11617, 11941, 11971, 12143, 12457, 12577

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

Prime[ Select[ Range[2000], PrimitiveRoot[ Prime[ # ] ] == 10 & ] ]

Select[ Prime@Range@1510, PrimitiveRoot@# == 10 &] (* Robert G. Wilson v, May 11 2001 *)

PROG

(PARI) is(n)=n>9 && isprime(n) && znorder(Mod(2, n))<n-1 && znorder(Mod(3, n))<n-1 && znorder(Mod(5, n))<n-1 && znorder(Mod(7, n))<n-1 && znorder(Mod(6, n))<n-1 && znorder(Mod(10, n))==n-1 \\ Charles R Greathouse IV, Apr 24 2015

CROSSREFS

Cf. A001918, A001126, A001913.

Sequence in context: A097023 A159574 A139656 * A082584 A088282 A068687

Adjacent sequences: A061320 A061321 A061322 * A061324 A061325 A061326

KEYWORD

nonn

AUTHOR

Klaus Brockhaus, Apr 24 2001

STATUS

approved