%I #17 Sep 08 2022 08:45:34
%S 89,331,509,541,719,751,929,1171,1381,1559,1801,1979,2011,2221,2399,
%T 2609,2819,2851,3061,3271,3449,3659,3691,4079,4111,4289,4919,4951,
%U 5581,5791,6211,6389,6421,6599,6841,7019,7229,7649,7681,8069,8101,8311,8521
%N Primes congruent to 89 or 121 mod 210.
%H Vincenzo Librandi, <a href="/A140772/b140772.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[1100]], MemberQ[{89, 121}, Mod[#, 210]] &] (* _Vincenzo Librandi_, Aug 15 2012 *)
%o (Magma) [p: p in PrimesUpTo(9000)|p mod 210 in {89,121}] // _Vincenzo Librandi_, Dec 18 2010
%Y Cf. A000040.
%K nonn,easy
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 28 2008
%E Corrected (7019 inserted) by _R. J. Mathar_, Apr 27 2010