|
%I #14 Apr 22 2022 14:50:46
%S 2179,2503,3137,3433,3967,4177,4621,5623,6637,7369,7393,7433,7993,
%T 9257,11027,11197,11213,11657,13649,14107,14369,15859,16033,16301,
%U 16787,16963,17077,17257,17807,18013,18617,18637,18839,19121,19661,20201
%N Prime numbers, isolated from neighboring primes by >14.
%C The definition means that p+-2, p+-4, p+-6, p+-8, p+-10, p+-12 and p+-14 are all composite. - _N. J. A. Sloane_, Jun 04 2008
%H Harvey P. Dale, <a href="/A137874/b137874.txt">Table of n, a(n) for n = 1..4000</a>
%t q=14;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,3000],Prime[ #-1]+14<Prime[ # ]<Prime[ #+1]-14&]] (* _Ray Chandler_, May 02 2009 *)
%t Select[Partition[Prime[Range[2500]],3,1],Min[Differences[#]]>14&][[All,2]] (* _Harvey P. Dale_, Apr 22 2022 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008
%E Extended by _Ray Chandler_, May 02 2009
|
