login
A019347
Primes with primitive root 20.
2
3, 13, 17, 23, 37, 43, 47, 53, 67, 73, 83, 103, 107, 113, 137, 157, 163, 167, 173, 223, 227, 233, 257, 263, 277, 283, 293, 313, 317, 337, 347, 353, 367, 383, 397, 433, 443, 463, 467, 487, 503, 547, 557, 563, 587, 593, 607, 613, 647, 653, 673, 677, 683, 727, 743, 773, 797
OFFSET
1,1
MATHEMATICA
pr=20; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{3, 13, 17}, Select[Prime[Range[200]], PrimitiveRoot[#, 20]==20&]] (* Harvey P. Dale, Mar 22 2019 *)
CROSSREFS
Sequence in context: A296936 A038883 A141188 * A184777 A339329 A045433
KEYWORD
nonn
STATUS
approved