A191059 Primes p that have Kronecker symbol (p|6) = -1.
13, 17, 19, 23, 37, 41, 43, 47, 61, 67, 71, 89, 109, 113, 137, 139, 157, 163, 167, 181, 191, 211, 229, 233, 239, 257, 263, 277, 281, 283, 307, 311, 331, 349, 353, 359, 373, 379, 383, 397, 401, 421, 431, 449, 479, 499, 503, 521, 523, 541, 547, 569, 571, 593
Offset: 1
Links
Crossrefs
Cf. A157437.
Programs
-
Magma
[p: p in PrimesUpTo(593) | KroneckerSymbol(p, 6) eq -1]; // Vincenzo Librandi, Sep 11 2012
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,6]==-1&]
-
PARI
is(n)=isprime(n) && kronecker(n,6)<0 \\ Charles R Greathouse IV, Feb 23 2017
Extensions
Definition corrected, following a suggestion from David Broadhurst, by M. F. Hasler, Jan 18 2016
Comments