login
A019348
Primes with primitive root 21.
2
2, 19, 23, 29, 31, 53, 71, 97, 103, 107, 113, 137, 139, 149, 157, 179, 181, 191, 197, 223, 233, 239, 263, 271, 281, 307, 313, 317, 347, 359, 389, 397, 401, 409, 431, 443, 449, 491, 523, 557, 569, 577, 607, 619, 643, 653, 659, 683, 701, 727, 733, 743, 769, 787, 809, 811
OFFSET
1,1
MATHEMATICA
pr=21; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
CROSSREFS
Sequence in context: A041451 A268492 A130112 * A155025 A191068 A069690
KEYWORD
nonn
STATUS
approved