%I #20 Sep 08 2022 08:45:34
%S 37,173,383,457,593,877,1013,1087,1223,1297,1433,2063,2137,2273,2347,
%T 2557,2693,2767,2903,3187,3323,3533,3607,4027,4373,4447,4583,4657,
%U 4793,5003,5077,5843,6053,6263,6337,6473,6547,6967,7103,7177,7523,8017,8363
%N Primes congruent to 37 or 173 mod 210.
%H Vincenzo Librandi, <a href="/A140593/b140593.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]],MemberQ[{37,173},Mod[#,210]]&] (* _Harvey P. Dale_, Mar 04 2011 *)
%o (Magma) [p: p in PrimesUpTo(9000)|p mod 210 in {37,173}] // _Vincenzo Librandi_, Dec 18 2010
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 28 2008
%E Entries checked by _R. J. Mathar_, Apr 27 2010