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 A137670 #9 Nov 05 2015 10:49:28 %S A137670 17,23,29,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109, %T A137670 113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199, %U A137670 211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313 %N A137670 Prime numbers p such that p-b < p-a < p < p+a < p+b are prime for some a and b. %C A137670 It seems highly likely that all primes other than 2,3,5,7,19 are in this sequence. There are no further exceptions to 4 billion. - _Charles R Greathouse IV_, Apr 19 2010 %t A137670 s=""; q=1; For[i=2, i<10^2, p=Prime[i]; For[a=2, a<p, If[PrimeQ[p-a]&&PrimeQ[p+a], For[b=a+2, b<p, If[PrimeQ[p-b]&&PrimeQ[p+b], For[c=b+2, c<p, If[p>q&&PrimeQ[p-c]&&PrimeQ[p+c], (*Print[p, ":", a, ", ", b, ", ", c]; *)s=s<>ToString[p]<>", "; q=p]; c=c+2]]; b=b+2]]; a=a+2]; i++ ]; Print[s] %Y A137670 Cf. A071681. %K A137670 nonn %O A137670 1,1 %A A137670 _Vladimir Joseph Stephan Orlovsky_, Apr 27 2008; corrected May 02 2008 %E A137670 New name from _Charles R Greathouse IV_, Apr 19 2010