login
A019403
Primes with primitive root 80.
1
3, 7, 13, 17, 23, 47, 53, 67, 83, 97, 107, 113, 137, 157, 163, 167, 193, 197, 223, 227, 233, 257, 263, 277, 283, 293, 307, 313, 317, 337, 347, 353, 367, 373, 383, 397, 433, 443, 467, 487, 503, 523, 557, 563, 577, 587, 593, 617, 647, 653, 677, 727, 757, 773, 787, 797, 823
OFFSET
1,1
MATHEMATICA
pr=80; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A040148 A097957 A071774 * A045422 A191071 A180543
KEYWORD
nonn
STATUS
approved