|
%I #18 Jan 24 2023 06:56:02
%S 73,137,283,347,557,977,1123,1187,1543,1607,1753,2027,2237,2383,2447,
%T 2593,2657,2803,3433,3643,3853,3917,4127,4273,4337,4483,4547,4903,
%U 4967,5113,5323,5387,5743,5807,5953,6163,6373,6793,6857,7213,7487,7907,8053
%N Primes congruent to 73 or 137 mod 210.
%H Vincenzo Librandi, <a href="/A140742/b140742.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]], MemberQ[{73, 137}, Mod[#, 210]] &] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma)[p: p in PrimesUpTo(9000)|p mod 210 in {73,137}]; // _Vincenzo Librandi_, Dec 18 2010
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 28 2008
%E Corrected (7013 removed) by _R. J. Mathar_, Apr 27 2010
|
