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

Author

T. D. Noe, Apr 16 2014

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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