login
A019420
Primes with primitive root 98.
1
3, 5, 13, 19, 29, 37, 43, 53, 59, 67, 83, 101, 107, 109, 131, 139, 149, 173, 179, 181, 197, 227, 229, 251, 269, 277, 283, 293, 307, 317, 331, 347, 373, 379, 389, 397, 419, 421, 443, 461, 467, 491, 499, 509, 523, 541, 557, 563, 587, 619, 643, 653, 659, 661, 677, 683, 691
OFFSET
1,1
MATHEMATICA
pr=98; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A228228 A227031 A157974 * A306930 A019358 A081353
KEYWORD
nonn
STATUS
approved