%I #15 Nov 10 2014 16:11:36
%S 11767181,35057849,84428051,91460249,105929711,115401719,162790781,
%T 197352401,217761851,235863209,266250839,284597741,370000511,
%U 386278019,554761451,576412271,581549669,592975109,611599661,625806761,626450411,655727771,670280591,680468669,744737111,883687349,1085880641,1119813311,1139369111
%N 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 Subsequence of A228968.
%t 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 Cf. A088483, A228968.
%K nonn
%O 1,1
%A _Pierre CAMI_, Sep 10 2013
%E Corrected by _Harvey P. Dale_, Nov 10 2014