%I #19 Sep 08 2022 08:44:56
%S 11,53,67,109,137,151,179,193,263,277,347,389,431,487,557,571,599,613,
%T 641,683,739,809,823,907,977,991,1019,1033,1061,1103,1117,1187,1201,
%U 1229,1327,1439,1453,1481,1523,1579,1607,1621,1663,1733,1747,1789,1831,1873
%N Primes congruent to 4 mod 7.
%H Vincenzo Librandi, <a href="/A045471/b045471.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[4, 50000, 7], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 13 2011 *)
%o (Magma) [ p: p in PrimesUpTo(11000) | p mod 7 eq 4 ]; // _Vincenzo Librandi_, Aug 13 2012
%o (PARI) is(n)=isprime(n) && n%7==4 \\ _Charles R Greathouse IV_, Jul 01 2016
%Y Cf. A042990 (complement), A045458, A045473.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
|