%I #7 Dec 13 2018 17:36:58
%S 89,359,389,449,479,509,719,839,929,1109,1259,1409,1439,1499,1559,
%T 1709,1889,1979,2039,2069,2099,2399,2459,2579,2609,2699,2819,2879,
%U 2909,2939,3089,3209,3449,3659,3719,3779,3989,4079,4139,4289,4349
%N Isolated primes congruent to 29 (mod 30).
%H Harvey P. Dale, <a href="/A132253/b132253.txt">Table of n, a(n) for n = 1..1000</a>
%H C. K. Caldwell, <a href="http://primes.utm.edu">The Prime Pages</a>.
%H Omar E. Pol, <a href="http://www.polprimos.com">Determinacion geometrica de los numeros primos y perfectos</a>.
%t Select[Range[29,4500,30],PrimeQ[#]&&NoneTrue[#+{2,-2},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 13 2018 *)
%Y Cf. A007510, A031926, A118922.
%K easy,nonn
%O 1,1
%A _Omar E. Pol_, Aug 20 2007
|