A105876 Primes for which -4 is a primitive root.
3, 7, 11, 19, 23, 47, 59, 67, 71, 79, 83, 103, 107, 131, 139, 163, 167, 179, 191, 199, 211, 227, 239, 263, 271, 311, 347, 359, 367, 379, 383, 419, 443, 463, 467, 479, 487, 491, 503, 523, 547, 563, 587, 599, 607, 619, 647, 659, 719, 743, 751, 787, 823, 827, 839, 859, 863
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- Index entries for primes by primitive root
Programs
-
Mathematica
pr=-4; Select[Prime[Range[200]], MultiplicativeOrder[pr, # ] == #-1 &] (* OR *) a[p_, q_]:=Sum[2 Cos[2^n Pi/((2 q+1)(2 p+1))],{n,1,2 q p}] 2 Select[Range[500],Rationalize[N[a[#,2],20]]==1 &]+1 (* Gerry Martens, Apr 28 2015 *)
-
PARI
is(n)=isprime(n) && n>2 && znorder(Mod(-4,n))==n-1 \\ Charles R Greathouse IV, Apr 30 2015
Extensions
Edited by N. J. A. Sloane, Aug 08 2009
Comments