A191077 Primes that are not squares mod 67.
2, 3, 5, 7, 11, 13, 31, 41, 43, 53, 61, 79, 97, 101, 109, 113, 137, 139, 179, 191, 197, 229, 233, 239, 251, 271, 281, 311, 313, 331, 337, 347, 353, 367, 373, 379, 383, 401, 409, 433, 443, 463, 487, 499, 503, 521, 541, 547, 563, 577, 587, 593, 599, 631, 641
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(641) | JacobiSymbol(p, 67) eq -1]; // Vincenzo Librandi, Sep 11 2012
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,67]==-1&]
Comments