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 A228978 #15 Nov 10 2014 16:11:36
%S A228978 11767181,35057849,84428051,91460249,105929711,115401719,162790781,
%T A228978 197352401,217761851,235863209,266250839,284597741,370000511,
%U A228978 386278019,554761451,576412271,581549669,592975109,611599661,625806761,626450411,655727771,670280591,680468669,744737111,883687349,1085880641,1119813311,1139369111
%N A228978 Primes p such that p and p+2, p^2+p-1 and p^2+p+1, and (p^2+p-1)^2+p^2+p-2 and (p^2+p-1)^2+p^2+p are three pairs of twin primes.
%C A228978 Subsequence of A228968.
%t A228978 tptpQ[n_]:=Module[{p2=n^2+n},AllTrue[{p2-1,p2+1,(p2-1)^2+p2-2,(p2-1)^2+ p2},PrimeQ]]; Select[Transpose[Select[Partition[ Prime[ Range[ 58*10^6]],2,1], #[[2]]-#[[1]]==2&]][[1]],tptpQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 10 2014 *)
%Y A228978 Cf. A088483, A228968.
%K A228978 nonn
%O A228978 1,1
%A A228978 _Pierre CAMI_, Sep 10 2013
%E A228978 Corrected by _Harvey P. Dale_, Nov 10 2014