A019341 Primes with primitive root 13.

2, 5, 11, 19, 31, 37, 41, 47, 59, 67, 71, 73, 83, 89, 97, 109, 137, 149, 151, 167, 197, 227, 239, 241, 281, 293, 307, 317, 349, 353, 359, 379, 383, 397, 401, 431, 449, 457, 479, 487, 509, 541, 557, 577, 587, 593, 613, 617, 631, 643, 683, 691, 733, 743, 769, 773, 787, 811

Offset

1,1

Links

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

Index entries for primes by primitive root

Mathematica

pr=13; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{2, 5, 11}, Select[Prime[Range[200]], PrimitiveRoot[#, 13]==13&]] (* Harvey P. Dale, Sep 26 2020 *)

Crossrefs

Sequence in context: A290164 A160536 A024979 * A327265 A084572 A040105

Adjacent sequences: A019338 A019339 A019340 * A019342 A019343 A019344

Keyword

nonn

Author

David W. Wilson

Status

approved