login
A019341
Primes with primitive root 13.
4
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
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
KEYWORD
nonn
STATUS
approved