A045337 Primes congruent to {1, 2, 3, 4} (mod 7).
2, 3, 11, 17, 23, 29, 31, 37, 43, 53, 59, 67, 71, 73, 79, 101, 107, 109, 113, 127, 137, 149, 151, 157, 163, 179, 191, 193, 197, 199, 211, 227, 233, 239, 241, 263, 269, 277, 281, 283, 311, 317, 331, 337, 347, 353
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(400) | p mod 7 in [1, 2, 3, 4]]; // Vincenzo Librandi, Aug 08 2012
-
Mathematica
Select[Prime[Range[600]],MemberQ[{1,2,3,4},Mod[#,7]]&] (* Vincenzo Librandi, Aug 08 2012 *)