A045469 Primes congruent to {1, 4} mod 7.
11, 29, 43, 53, 67, 71, 109, 113, 127, 137, 151, 179, 193, 197, 211, 239, 263, 277, 281, 337, 347, 379, 389, 421, 431, 449, 463, 487, 491, 547, 557, 571, 599, 613, 617, 631, 641, 659, 673, 683, 701, 739, 743
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ p: p in PrimesUpTo(1000) | p mod 7 in {1, 4} ]; // Vincenzo Librandi, Aug 06 2012
-
Mathematica
Select[Prime[Range[120]], MemberQ[{1, 4}, Mod[#, 7]] &] (* Alonso del Arte, based on Orlovsky's program for A042992, Feb 18 2012 *)
Comments