A019421 Primes with primitive root 99.

2, 17, 23, 41, 47, 59, 67, 71, 73, 101, 103, 109, 149, 173, 179, 191, 197, 199, 223, 233, 241, 251, 277, 293, 311, 331, 337, 349, 367, 373, 379, 383, 409, 419, 443, 457, 461, 467, 499, 541, 557, 569, 587, 593, 599, 613, 619, 631, 643, 673, 677, 683, 691, 719, 733, 761

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Comments

To allow primes less than the specified primitive root m (here, 99) to be included, we use the essentially equivalent definition "Primes p such that the multiplicative order of m mod p is p-1". This comment applies to all of A019334-A019421. - N. J. A. Sloane, Dec 03 2019

Links

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

Programs

Mathematica

pr=99; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]