A045333 Primes congruent to {0, 2, 3} (mod 7).
2, 3, 7, 17, 23, 31, 37, 59, 73, 79, 101, 107, 149, 157, 163, 191, 199, 227, 233, 241, 269, 283, 311, 317, 331, 353, 359, 367, 373, 401, 409, 443, 457, 479, 499, 521, 541, 563, 569, 577, 619, 647, 653, 661, 709
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(1000) | p mod 7 in [0, 2, 3]]; // Vincenzo Librandi, Aug 08 2012
-
Mathematica
Select[Prime[Range[200]],MemberQ[{0,2,3},Mod[#,7]]&] (* Harvey P. Dale, Jul 24 2012 *)