Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #9 Aug 28 2022 17:21:15
%S 211,293,631,787,797,839,1249,1259,1399,1409,1471,1511,1637,1709,1801,
%T 1811,1847,1889,2039,2053,2099,2179,2503,2521,2579,2633,2647,2767,
%U 2777,2819,2927,2939,3109,3137,3271,3433,3571,3593,3659,3779,3833,3863,3967
%N Prime numbers, isolated from neighboring primes by >8.
%C The distance to the nearest prime has to exceed 8 and equality is not allowed. - _Stefan Steinerberger_, May 02 2008
%t q=8;s="";For[i=1,i<12^2,p=Prime[i];a=0;For[j=2,j<=q,If[PrimeQ[p-j]||PrimeQ[p+j], a=1;Break[]];j=j+2];If[a==0,s=s<>ToString[p]<>","];i++ ];Print[s]
%t Prime[Select[Range[2, 1500], Prime[ # - 1] + 8 < Prime[ # ] < Prime[ # + 1] - 8 &]] (* _Stefan Steinerberger_, May 02 2008 *)
%t Select[Partition[Prime[Range[600]],3,1],Min[Differences[#]]>8&][[All,2]] (* _Harvey P. Dale_, Aug 28 2022 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008
%E More terms from _Stefan Steinerberger_, May 02 2008
%E Description edited by _Ray Chandler_, May 02 2009