A191021 Primes that are squares mod 23.
2, 3, 13, 29, 31, 41, 47, 59, 71, 73, 101, 127, 131, 139, 151, 163, 167, 173, 179, 193, 197, 211, 223, 233, 239, 257, 269, 271, 277, 307, 311, 317, 331, 347, 349, 353, 397, 409, 439, 443, 449, 461, 463, 487, 491, 499, 509, 541, 547, 577, 587, 593, 599, 601
Offset: 1
Links
Programs
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,23]==1&]
Comments