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 A158713 #8 May 30 2017 12:36:58
%S A158713 7,47,127,167,239,439,479,607,967,1319,1559,1999,2239,2447,2719,3359,
%T A158713 4007,4327,4967,5039,5279,5407,5879,6007,6287,7127,7607,8167,8447,
%U A158713 8527,8999,9127,9439,9967,10487,11087,11287,11399,11527,11719,11927,11959,12479
%N A158713 Primes p such that p1=Ceiling[p/2]+p is prime and p2=Ceiling[p1/2]+p is prime.
%t A158713 cpQ[n_]:=Module[{p1=Ceiling[n/2]+n},AllTrue[{p1,Ceiling[p1/2]+n}, PrimeQ]]; Select[Prime[Range[2000]],cpQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 29 2017 *)
%Y A158713 Cf. A158708, A158709, A158710, A158711, A158712
%K A158713 nonn
%O A158713 1,1
%A A158713 _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009
%E A158713 Corrected and incorrect Mathematica program deleted by _Harvey P. Dale_, May 29 2017