A019354 Primes with primitive root 28.

5, 11, 13, 17, 23, 41, 43, 67, 71, 73, 79, 89, 101, 107, 173, 179, 181, 191, 229, 257, 263, 269, 293, 313, 331, 347, 353, 359, 379, 397, 409, 431, 433, 443, 461, 463, 487, 491, 499, 509, 521, 571, 577, 593, 599, 659, 661, 677, 683, 733, 739, 743, 751, 769, 773, 797, 827

Offset

1,1

Links

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

Index entries for primes by primitive root

Mathematica

pr=28; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]
Join[{5, 11, 13, 17, 23}, Select[Prime[Range[150]], MemberQ[ PrimitiveRootList[ #], 28]&]] (* Harvey P. Dale, Jan 17 2022 *)

Crossrefs

Sequence in context: A246374 A040113 A003632 * A230288 A124662 A226614

Adjacent sequences: A019351 A019352 A019353 * A019355 A019356 A019357

Keyword

nonn

Author

David W. Wilson

Status

approved