login
A019396
Primes with primitive root 73.
1
2, 5, 7, 11, 17, 29, 31, 43, 47, 53, 59, 83, 101, 107, 139, 157, 163, 167, 179, 191, 193, 197, 199, 229, 233, 263, 271, 307, 337, 409, 431, 449, 467, 491, 521, 541, 563, 569, 571, 577, 599, 601, 613, 643, 647, 677, 683, 701, 719, 761, 769, 773, 823, 829, 859, 863, 881
OFFSET
1,1
MATHEMATICA
pr=73; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A106008 A138244 A326505 * A153767 A038973 A197297
KEYWORD
nonn
STATUS
approved