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,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[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 *)

Crossrefs

Cf. A001122, A019334, A019335, A213052.

Sequence in context: A142639 A141880 A142698 * A303093 A056209 A098671

Adjacent sequences: A241041 A241042 A241043 * A241045 A241046 A241047

Keyword

nonn

Author

T. D. Noe, Apr 16 2014

Status

approved