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

293, 2477, 4373, 6173, 7013, 9173, 9677, 10853, 13037, 13397, 13613, 13877, 14957, 15413, 17093, 17597, 18413, 18917, 19157, 22277, 22613, 24317, 26813, 27653, 27893, 29333, 30197, 31517, 33893, 34613, 34877, 35573, 37253, 40493, 41117, 41333, 42437

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, A213052.

Programs

Mathematica

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