A045313 Primes congruent to {1, 2, 3, 5} (mod 7).
2, 3, 5, 17, 19, 23, 29, 31, 37, 43, 47, 59, 61, 71, 73, 79, 89, 101, 103, 107, 113, 127, 131, 149, 157, 163, 173, 191, 197, 199, 211, 227, 229, 233, 239, 241, 257, 269, 271, 281, 283, 311, 313, 317, 331, 337, 353, 359, 367, 373, 379, 383, 397, 401, 409, 421, 439, 443, 449
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 [1, 2, 3, 5]]; // Vincenzo Librandi, Aug 08 2012
-
Mathematica
Select[Prime[Range[400]],MemberQ[{1,2,3, 5},Mod[#,7]]&] (* Vincenzo Librandi, Aug 08 2012 *)
Comments