A105885 Primes for which -13 is a primitive root.

2, 3, 5, 23, 37, 41, 43, 73, 79, 89, 97, 107, 109, 127, 131, 137, 139, 149, 179, 191, 197, 199, 241, 251, 263, 281, 283, 293, 317, 347, 349, 353, 367, 397, 401, 439, 449, 457, 467, 491, 503, 509, 523, 541, 557, 563, 571, 577, 593, 599, 607, 613, 617, 647, 659, 719, 727

Offset: 1

Author

N. J. A. Sloane, Apr 24 2005

Keywords

• nonn

Comments

Primes p such that Legendre(-13,p) = -1. - N. J. A. Sloane, Dec 26 2017

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• Index entries for primes by primitive root

Programs

Maple

Load the Maple program HH given in A296920. Then run HH(-13, 200); This produces A296926, A296927, A296928, A105885. - N. J. A. Sloane, Dec 26 2017

Mathematica

pr=-13; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]