A045393 Primes congruent to {0, 1, 3, 4, 5, 6} mod 7.
3, 5, 7, 11, 13, 17, 19, 29, 31, 41, 43, 47, 53, 59, 61, 67, 71, 73, 83, 89, 97, 101, 103, 109, 113, 127, 131, 137, 139, 151, 157, 167, 173, 179, 181, 193, 197, 199, 211, 223, 227, 229, 239, 241, 251, 257, 263
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[p: p in PrimesUpTo(400) | p mod 7 in [0, 1, 3, 4, 5, 6]]; // Vincenzo Librandi, Aug 11 2012
-
Mathematica
Select[Prime[Range[300]],MemberQ[{0,1,3,4,5,6},Mod[#,7]]&] (* Vincenzo Librandi, Aug 11 2012 *)
Comments