login
A019371
Primes with primitive root 46.
1
11, 13, 17, 43, 67, 83, 89, 101, 107, 113, 127, 137, 167, 173, 197, 223, 227, 239, 241, 251, 269, 271, 277, 281, 283, 313, 317, 337, 349, 379, 397, 401, 419, 433, 439, 457, 461, 463, 467, 487, 509, 563, 569, 571, 599, 607, 619, 641, 643, 647, 653, 719, 769, 827, 853
OFFSET
1,1
MATHEMATICA
pr=46; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A167794 A019336 A104070 * A068335 A306766 A087776
KEYWORD
nonn
STATUS
approved