A191041 Primes that are squares mod 67.
17, 19, 23, 29, 37, 47, 59, 71, 73, 83, 89, 103, 107, 127, 131, 149, 151, 157, 163, 167, 173, 181, 193, 199, 211, 223, 227, 241, 257, 263, 269, 277, 283, 293, 307, 317, 349, 359, 389, 397, 419, 421, 431, 439, 449, 457, 461, 467, 479, 491, 509, 523, 557, 569
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(569) | JacobiSymbol(p, 67) eq 1]; // Vincenzo Librandi, Sep 10 2012
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,67]==1&]
Comments