A191065 Primes that are not squares mod 23.
5, 7, 11, 17, 19, 37, 43, 53, 61, 67, 79, 83, 89, 97, 103, 107, 109, 113, 137, 149, 157, 181, 191, 199, 227, 229, 241, 251, 263, 281, 283, 293, 313, 337, 359, 367, 373, 379, 383, 389, 401, 419, 421, 431, 433, 457, 467, 479, 503, 521, 523, 557, 563, 569, 571
Offset: 1
Links
Crossrefs
Primes in A278579.
Programs
-
Magma
[p: p in PrimesUpTo(571) | JacobiSymbol(p, 23) eq -1]; // Vincenzo Librandi, Sep 11 2012
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,23]==-1&]
Comments