A019356 Primes with primitive root 30.

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

Author

David W. Wilson

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Index entries for primes by primitive root

Programs

Mathematica

Select[Prime[Range[200]], MultiplicativeOrder[30, #] == # - 1 &]
Join[{11,23},Select[Prime[Range[200]],PrimitiveRoot[#,30]==30&]] (* Harvey P. Dale, Sep 23 2018 *)