login
A019419
Primes with primitive root 97.
1
2, 5, 13, 17, 19, 23, 29, 41, 59, 83, 107, 127, 131, 137, 149, 157, 173, 179, 181, 199, 223, 239, 251, 257, 263, 271, 277, 281, 311, 317, 331, 347, 349, 359, 367, 383, 401, 409, 439, 443, 457, 523, 563, 569, 587, 599, 619, 641, 653, 659, 709, 719, 757, 761, 797, 821, 827
OFFSET
1,1
MATHEMATICA
pr=97; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A334494 A168486 A038914 * A175256 A139254 A266987
KEYWORD
nonn
STATUS
approved