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 A158712 #4 Feb 07 2019 14:51:46
%S A158712 2,5,13,101,293,421,541,661,821,1021,1301,1493,2621,3221,3373,3853,
%T A158712 5693,5981,6133,6421,6733,7853,8861,8941,9173,9221,9341,9901,10061,
%U A158712 10093,10181,10613,15373,16061,16333,16381,16421,17093,18061,18493,19141
%N A158712 Primes p such that p1=Floor[p/2]+p is prime and p2=Ceiling[p1/2]+p1 is prime.
%t A158712 lst={};Do[p=Prime[n];If[PrimeQ[p=Floor[p/2]+p],If[PrimeQ[p=Ceiling[p/2]+p],AppendTo[lst,Prime[n]]]],{n,7!}];lst
%t A158712 pQ[n_]:=Module[{p1=Floor[n/2]+n},AllTrue[{p1,Ceiling[p1/2]+p1},PrimeQ]]; Select[Prime[Range[2500]],pQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Feb 07 2019 *)
%Y A158712 Cf. A158708, A158709, A158710, A158711
%K A158712 nonn
%O A158712 1,1
%A A158712 _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009
%E A158712 Definition corrected by _Harvey P. Dale_, Feb 07 2019