%I #20 Sep 08 2022 08:45:34
%S 71,139,281,349,491,701,769,911,1399,1609,2029,2239,2381,2591,2659,
%T 2801,3011,3079,3221,3499,3709,3851,3919,4129,4271,4339,4481,4549,
%U 4691,4759,4969,5179,5531,5741,6229,6581,6791,7001,7069,7211,7489,7699,7841,8329
%N Primes congruent to 71 or 139 mod 210.
%H Vincenzo Librandi, <a href="/A140732/b140732.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]], MemberQ[{71, 139}, Mod[#, 210]] &] (* _Vincenzo Librandi_, Aug 15 2012 *)
%t Select[Riffle[Range[71,9000,210],Range[139,9000,210]],PrimeQ] (* _Harvey P. Dale_, Jun 01 2017 *)
%o (Magma) [p: p in PrimesUpTo(9000)|p mod 210 in {71,139}] // _Vincenzo Librandi_, Dec 18 2010
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 28 2008
%E 4691 added by _D. S. McNeil_, Dec 10 2009