A042989 Primes congruent to {0, 2, 3, 4, 5} mod 7.
2, 3, 5, 7, 11, 17, 19, 23, 31, 37, 47, 53, 59, 61, 67, 73, 79, 89, 101, 103, 107, 109, 131, 137, 149, 151, 157, 163, 173, 179, 191, 193, 199, 227, 229, 233, 241, 257, 263, 269, 271, 277, 283, 311, 313, 317, 331, 347, 353, 359, 367, 373, 383, 389, 397, 401, 409, 431, 439, 443
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(500) | p mod 7 in [0, 2, 3, 4, 5]]; // Vincenzo Librandi, Aug 09 2012
-
Mathematica
Select[Prime[Range[200]],MemberQ[{0,2,3,4,5},Mod[#,7]]&] (* Vincenzo Librandi, Aug 09 2012 *)
Comments