A019347 Primes with primitive root 20.

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

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Index entries for primes by primitive root

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

Adjacent sequences: A019344 A019345 A019346 * A019348 A019349 A019350

Keyword

nonn

Author

David W. Wilson

Status

approved