%I #20 Sep 08 2022 08:44:56
%S 3,17,31,59,73,101,157,199,227,241,269,283,311,353,367,409,479,521,
%T 563,577,619,647,661,773,787,829,857,941,983,997,1039,1109,1123,1151,
%U 1193,1249,1277,1291,1319,1361,1459,1487,1543,1571,1613,1627,1669,1697,1753
%N Primes congruent to 3 mod 7.
%C Also primes congruent to 3 mod 14.
%H Vincenzo Librandi, <a href="/A045437/b045437.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[3, 50000, 7], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Jun 13 2011 *)
%o (Magma) [p: p in PrimesUpTo(2000) | p mod 7 eq 3]; // _Vincenzo Librandi_, Aug 06 2012
%o (PARI) is(n)=isprime(n) && n%7==3 \\ _Charles R Greathouse IV_, Jul 01 2016
%Y Primes arising in sequences A024903, A033868, A089033, A090614.
%Y A090613 gives prime index.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
%E Extended by _Ray Chandler_, Dec 23 2003
|