%I #17 Sep 08 2022 08:45:34
%S 101,109,311,521,739,941,1151,1361,1571,1579,1789,1999,2411,2621,3041,
%T 3049,3251,3259,3461,3469,3671,3881,3889,4091,4099,4519,4721,4729,
%U 4931,5351,5569,5779,5981,6199,6619,6829,7039,7451,7459,7669,7879,8081,8089
%N Primes congruent to 101 or 109 mod 210.
%H Vincenzo Librandi, <a href="/A140799/b140799.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]],MemberQ[{101,109},Mod[#,210]]&] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma) [p: p in PrimesUpTo(10000)|p mod 210 in {101,109}] // _Vincenzo Librandi_, Dec 19 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
|