A105878 Primes for which -6 is a primitive root.

13, 17, 19, 23, 41, 47, 61, 67, 71, 89, 109, 113, 137, 157, 167, 211, 229, 233, 257, 263, 277, 283, 331, 359, 373, 383, 397, 401, 449, 479, 503, 521, 523, 547, 569, 593, 599, 613, 619, 641, 647, 661, 691, 709, 719, 733, 739, 743, 757, 761, 787, 809, 811, 829, 839, 853

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=-6; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &]

PARI

is(n)=isprime(n) && n>7 && znorder(Mod(-6,n))==n-1 \\ Charles R Greathouse IV, Feb 23 2017