login
A019354
Primes with primitive root 28.
2
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
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
KEYWORD
nonn
STATUS
approved