A105879 Primes for which -7 is a primitive root.

2, 3, 5, 13, 17, 31, 41, 47, 59, 61, 83, 89, 97, 101, 103, 131, 139, 167, 173, 199, 227, 229, 241, 251, 257, 269, 271, 283, 293, 307, 349, 383, 397, 433, 461, 467, 479, 503, 509, 521, 523, 563, 577, 587, 593, 601, 619, 643, 647, 677, 691, 719, 727, 733, 761, 773, 787, 797

Offset: 1

Author

N. J. A. Sloane, Apr 24 2005

Keywords

• nonn

Links

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

Programs

Mathematica

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