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 A155010 #4 Apr 26 2015 13:49:45
%S A155010 7,37,587,28703,35677,36857,99367,326707,361687,578167,613573,619007,
%T A155010 656407,688783,702203,713467,874823,922027,940573,1045763,1057907,
%U A155010 1244687,1371157,1419697,1555187,1665767,1687187,1687327,1799453
%N A155010 Primes p such that (p-a)*(p+a)-+a*p and (p-b)*(p+b)-+b*p are primes, a=2,b=3.
%t A155010 lst={};Do[p=Prime[n];If[PrimeQ[(p-2)*(p+2)-2*p]&&PrimeQ[(p-2)*(p+2)+2*p]&&PrimeQ[(p-3)*(p+3)-3*p]&&PrimeQ[(p-3)*(p+3)+3*p],AppendTo[lst,p]],{n,9!}];lst
%t A155010 Select[Prime[Range[200000]],AllTrue[Flatten[{(#-2)(#+2)+{2#,-2#},(#-3)(#+3)+ {3#,-3#}}],PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Apr 26 2015 *)
%Y A155010 Cf. A125272, A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A155006, A155007, A155008, A155009
%K A155010 nonn
%O A155010 1,1
%A A155010 _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009