A045465 Primes congruent to {0, 1} mod 7.
7, 29, 43, 71, 113, 127, 197, 211, 239, 281, 337, 379, 421, 449, 463, 491, 547, 617, 631, 659, 673, 701, 743, 757, 827, 883, 911, 953, 967, 1009, 1051, 1093, 1163, 1289, 1303, 1373, 1429, 1471, 1499, 1583
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ p: p in PrimesUpTo(2000) | p mod 7 in {0, 1} ]; // Vincenzo Librandi, Aug 13 2012
-
Mathematica
Select[Prime[Range[200]],MemberQ[{0,1},Mod[#,7]]&] (* Vincenzo Librandi, Aug 13 2012 *)