A045402 Primes congruent to {1, 3, 4, 5, 6} mod 7.
3, 5, 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, 269
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000040.
Programs
-
Magma
[ p: p in PrimesUpTo(740) | p mod 7 in {1, 3, 4, 5, 6} ]; // Vincenzo Librandi, Mar 24 2011
-
Mathematica
Select[Prime[Range[0,60]],MemberQ[{1,3,4,5,6},Mod[#,7]]&]//Quiet (* Harvey P. Dale, Feb 19 2011 *)