|
%I #16 Jan 24 2023 06:56:26
%S 31,179,241,389,599,661,809,1019,1229,1291,1439,2069,2131,2341,2551,
%T 2699,2909,2971,3119,3181,3329,3391,3539,4021,4231,4441,4651,4799,
%U 4861,5009,5281,5639,5701,5849,6121,6269,6689,6899,6961,7109,7529,7591,7949
%N Primes congruent to 31 or 179 mod 210.
%H Vincenzo Librandi, <a href="/A140587/b140587.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]], MemberQ[{31, 179}, Mod[#, 210]] &] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma) [p: p in PrimesUpTo(9000)|p mod 210 in {31,179}]; // _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
|
