A157437 Primes congruent to 1, 5, 7, or 11 modulo 24.
5, 7, 11, 29, 31, 53, 59, 73, 79, 83, 97, 101, 103, 107, 127, 131, 149, 151, 173, 179, 193, 197, 199, 223, 227, 241, 251, 269, 271, 293, 313, 317, 337, 347, 367, 389, 409, 419, 433, 439, 443, 457, 461, 463, 467, 487, 491, 509, 557, 563, 577, 587, 601, 607, 631
Offset: 1
Keywords
Links
Programs
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#, 6] == 1 &] (* T. D. Noe, Aug 17 2011 *) Select[Prime[Range[200]],MemberQ[{1,5,7,11},Mod[#,24]]&] (* Harvey P. Dale, May 25 2018 *)
Extensions
Extended by Max Alekseyev, May 30 2009
New name from Max Alekseyev, Jan 04 2018
Comments