A045343 Primes congruent to {2, 3} mod 7.
2, 3, 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, 751
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ p: p in PrimesUpTo(1000) | p mod 7 in {2, 3} ]; // Vincenzo Librandi, Aug 07 2012
-
Mathematica
Select[Prime[Range[500]],MemberQ[{2,3},Mod[#,7]]&] (* Harvey P. Dale, Mar 12 2011 *)