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

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

Links

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

Mathematica

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, #] &]

Crossrefs

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

Sequence in context: A236785 A020411 A124594 * A291199 A260766 A003917

Adjacent sequences: A241045 A241046 A241047 * A241049 A241050 A241051

Keyword

nonn

Author

T. D. Noe, Apr 16 2014

Status

approved