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,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[4500]], fQ[2, #] && fQ[3, #] && fQ[5, #] && fQ[7, #] && fQ[11, #] && fQ[13, #] &]

Crossrefs

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

Sequence in context: A023305 A109182 A342874 * A085502 A108828 A239825

Adjacent sequences: A241044 A241045 A241046 * A241048 A241049 A241050

Keyword

nonn

Author

T. D. Noe, Apr 16 2014

Status

approved