A019344 -id:A019344 - cp's OEIS frontend

A061329 Primes with 17 as smallest positive primitive root.

311, 911, 1151, 2521, 2999, 3529, 4729, 5209, 6079, 6551, 7681, 8089, 8191, 8641, 9719, 14759, 16249, 16871, 16921, 18119, 19081, 21961, 23399, 24007, 24181, 27241, 27431, 27551, 29569, 29761, 30911, 33479, 34303, 35591, 36791, 37441

Offset: 1

Klaus Brockhaus, Apr 25 2001

nonn

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

Cf. A001918, A001126, A019344.

Select[ Prime@Range@4000, PrimitiveRoot@# == 17 &] (* Robert G. Wilson v, May 11 2001; edited by Harvey P. Dale, Sep 14 2011 *)

A241048 Primes having primitive roots 2, 3, 5, 7, 11, 13, and 17.

Original entry on oeis.org

2477, 9173, 10853, 13877, 14957, 15413, 22277, 22613, 24317, 27653, 30197, 34877, 37253, 41117, 41333, 42437, 42677, 43973, 48677, 51413, 55733, 61613, 62597, 63773, 66293, 72533, 73757, 74093, 76733, 79397, 79757, 82997, 86357, 90173, 92237, 92333, 95597

Offset: 1

T. D. Noe, Apr 16 2014

nonn

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

Cf. A001122, A019334, A019335, A019337, A019339, A019341, A019344, A213052.

fQ[p_, n_] := MultiplicativeOrder[p, n] == n - 1; Select[Prime[Range[10000]], fQ[2, #] && fQ[3, #] && fQ[5, #] && fQ[7, #] && fQ[11, #] && fQ[13, #] && fQ[17, #] &]

cp's OEIS Frontend

A061329 Primes with 17 as smallest positive primitive root.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica