A019382 Primes with primitive root 58.

5, 13, 17, 41, 47, 53, 73, 83, 89, 97, 107, 109, 113, 127, 137, 139, 149, 173, 179, 181, 191, 193, 197, 227, 263, 271, 277, 311, 347, 359, 367, 397, 419, 433, 479, 499, 503, 509, 547, 557, 569, 577, 587, 599, 601, 613, 617, 643, 683, 701, 727, 743, 769, 809, 821, 823

Offset

1,1

Links

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

Index entries for primes by primitive root

Mathematica

pr=58; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{5, 13, 17, 41, 47, 53}, Select[Prime[Range[150]], PrimitiveRoot[#, 58]==58&]] (* Harvey P. Dale, May 24 2020 *)

Crossrefs

Sequence in context: A084165 A120130 A087484 * A330732 A276260 A350379

Adjacent sequences: A019379 A019380 A019381 * A019383 A019384 A019385

Keyword

nonn

Author

David W. Wilson

Status

approved