login
A019356
Primes with primitive root 30.
2
11, 23, 41, 43, 47, 59, 61, 79, 89, 109, 131, 151, 167, 173, 179, 193, 197, 199, 251, 263, 281, 293, 307, 317, 349, 383, 419, 421, 433, 439, 449, 457, 491, 503, 521, 523, 541, 557, 569, 577, 641, 647, 653, 659, 673, 677, 743, 751, 761, 773, 787, 797, 809, 829, 863, 881
OFFSET
1,1
MATHEMATICA
Select[Prime[Range[200]], MultiplicativeOrder[30, #] == # - 1 &]
Join[{11, 23}, Select[Prime[Range[200]], PrimitiveRoot[#, 30]==30&]] (* Harvey P. Dale, Sep 23 2018 *)
CROSSREFS
Sequence in context: A339080 A077345 A130282 * A046440 A232116 A119890
KEYWORD
nonn,easy
STATUS
approved