%I #14 Oct 30 2019 16:02:48
%S 2179,2503,3967,4177,7369,7393,11027,11657,14107,14369,15859,16033,
%T 16301,16787,17257,18013,18617,18637,18839,19121,19661,20201,20663,
%U 21247,21911,22229,23227,23251,23399,23719,24281,24571,24593,25013
%N Prime numbers, isolated from neighboring primes by >16.
%C The definition means that p+-2, p+-4, p+-6, p+-8, p+-10, p+-12, p+-14 and p+-16 are all composite. - _N. J. A. Sloane_, Jun 04 2008
%H Harvey P. Dale, <a href="/A137875/b137875.txt">Table of n, a(n) for n = 1..5000</a>
%t q=16;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]+16<Prime[ # ]<Prime[ #+1]-16&]] (* _Ray Chandler_, May 02 2009 *)
%t Select[Partition[Prime[Range[3000]],3,1],Min[Differences[#]]>16&][[All,2]] (* _Harvey P. Dale_, Jul 25 2019 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008
%E Extended by _Ray Chandler_, May 02 2009
|