login
A241044
Primes having primitive roots 2, 3, and 5.
1
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
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Apr 16 2014
STATUS
approved