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 A137873 #24 Apr 09 2022 15:34:35 %S A137873 1847,2179,2503,2819,3137,3433,3967,4177,4621,4831,5623,5953,6637, %T A137873 7283,7369,7393,7433,7621,7993,8039,8147,9257,9587,10753,11027,11197, %U A137873 11213,11369,11657,13063,13367,13381,13537,13553,13649,13859,14107,14221 %N A137873 Prime numbers, isolated from neighboring primes by more than 12. %C A137873 The definition means that p+-2, p+-4, p+-6, p+-8, p+-10 and p+-12 are all composite. - _N. J. A. Sloane_, Jun 04 2008 %H A137873 Daniel Starodubtsev, <a href="/A137873/b137873.txt">Table of n, a(n) for n = 1..1000</a> %t A137873 q=12;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 A137873 Prime[Select[Range[2,2000],Prime[ #-1]+12<Prime[ # ]<Prime[ #+1]-12&]] (* _Ray Chandler_, May 02 2009 *) %t A137873 Select[Partition[Prime[Range[2000]],3,1],Min[Differences[#]]>12&][[All,2]] (* _Harvey P. Dale_, Apr 09 2022 *) %Y A137873 Note that this is different from A137796. %K A137873 nonn %O A137873 1,1 %A A137873 _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008 %E A137873 Extended by _Ray Chandler_, May 02 2009