A241045 Primes having primitive roots 2, 3, 5, and 7.

173, 293, 677, 773, 797, 907, 1277, 1637, 1747, 2083, 2357, 2477, 2693, 2957, 3533, 3797, 4133, 4157, 4373, 4493, 4603, 4637, 4877, 4973, 5333, 5477, 5717, 5813, 5923, 6053, 6173, 6317, 6547, 6653, 6763, 7013, 7517, 8237, 8573, 8693, 8837, 9173, 9533

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[1200]], fQ[2, #] && fQ[3, #] && fQ[5, #] && fQ[7, #] &]
Select[Prime[Range[1200]], SubsetQ[PrimitiveRootList[#], {2, 3, 5, 7}]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 16 2020 *)

Crossrefs

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

Sequence in context: A322842 A063645 A142607 * A241046 A142206 A343449

Adjacent sequences: A241042 A241043 A241044 * A241046 A241047 A241048

Keyword

nonn

Author

T. D. Noe, Apr 16 2014

Status

approved