login
A019373
Primes with primitive root 48.
1
5, 17, 19, 29, 31, 41, 43, 53, 67, 79, 89, 101, 103, 127, 137, 149, 151, 173, 197, 199, 211, 223, 233, 257, 269, 271, 281, 283, 293, 317, 353, 367, 389, 449, 463, 487, 509, 521, 523, 547, 557, 569, 593, 617, 619, 641, 653, 677, 701, 739, 761, 773, 787, 797, 809, 811, 823
OFFSET
1,1
MATHEMATICA
pr=48; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A191076 A166685 A167915 * A140568 A019349 A226627
KEYWORD
nonn
STATUS
approved