This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A137874 #14 Apr 22 2022 14:50:46 %S A137874 2179,2503,3137,3433,3967,4177,4621,5623,6637,7369,7393,7433,7993, %T A137874 9257,11027,11197,11213,11657,13649,14107,14369,15859,16033,16301, %U A137874 16787,16963,17077,17257,17807,18013,18617,18637,18839,19121,19661,20201 %N A137874 Prime numbers, isolated from neighboring primes by >14. %C A137874 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 A137874 Harvey P. Dale, <a href="/A137874/b137874.txt">Table of n, a(n) for n = 1..4000</a> %t A137874 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 A137874 Prime[Select[Range[2,3000],Prime[ #-1]+14<Prime[ # ]<Prime[ #+1]-14&]] (* _Ray Chandler_, May 02 2009 *) %t A137874 Select[Partition[Prime[Range[2500]],3,1],Min[Differences[#]]>14&][[All,2]] (* _Harvey P. Dale_, Apr 22 2022 *) %K A137874 nonn %O A137874 1,1 %A A137874 _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008 %E A137874 Extended by _Ray Chandler_, May 02 2009