|
%I #8 Mar 04 2019 19:32:46
%S 47,79,89,167,211,257,317,331,359,379,389,409,439,449,467,479,499,509,
%T 541,557,587,631,647,677,691,709,719,739,751,769,797,839,887,919,929,
%U 947,977,991,1009,1039,1069,1097,1109,1129,1171,1187
%N Isolated primes congruent to {1, 17, 19, 29} mod 30.
%H Harvey P. Dale, <a href="/A132259/b132259.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[Prime[Range[200]],NoneTrue[#+{2,-2},PrimeQ]&&MemberQ[ {1,17,19,29},Mod[ #,30]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 04 2019 *)
%Y Cf. A007510, A074822, A078857.
%K easy,nonn
%O 1,1
%A _Omar E. Pol_, Aug 20 2007
|
