A241044 Primes having primitive roots 2, 3, and 5.

53, 173, 197, 293, 317, 557, 653, 677, 773, 797, 907, 1277, 1373, 1483, 1493, 1637, 1733, 1747, 1987, 1997, 2083, 2213, 2237, 2333, 2357, 2467, 2477, 2683, 2693, 2837, 2957, 3307, 3413, 3533, 3547, 3557, 3643, 3677, 3797, 3917, 4003, 4013, 4133, 4157

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

Programs

Mathematica

fQ[p_, n_] := MultiplicativeOrder[p, n] == n - 1; Select[Prime[Range[600]], fQ[2, #] && fQ[3, #] && fQ[5, #] &]
Select[Prime[Range[600]],SequenceCount[PrimitiveRootList[#],{2,3,5}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 03 2018 *)