A045432 Primes congruent to {3, 4} mod 7.
3, 11, 17, 31, 53, 59, 67, 73, 101, 109, 137, 151, 157, 179, 193, 199, 227, 241, 263, 269, 277, 283, 311, 347, 353, 367, 389, 409, 431, 479, 487, 521, 557, 563, 571, 577, 599, 613, 619, 641, 647, 661, 683, 739
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 {3,4} ]; // Vincenzo Librandi, Aug 13 2012 -
Mathematica
Select[Prime[Range[200]],MemberQ[{3,4},Mod[#,7]]&] (* Vincenzo Librandi, Aug 13 2012 *) Select[Prime[Range[200]], PowerMod[#,2,7] == 2 &] (* Zak Seidov, May 11 2013 *)
Comments