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.

11767181, 35057849, 84428051, 91460249, 105929711, 115401719, 162790781, 197352401, 217761851, 235863209, 266250839, 284597741, 370000511, 386278019, 554761451, 576412271, 581549669, 592975109, 611599661, 625806761, 626450411, 655727771, 670280591, 680468669, 744737111, 883687349, 1085880641, 1119813311, 1139369111

Offset

1,1

Comments

Subsequence of A228968.

Links

Table of n, a(n) for n=1..29.

Mathematica

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 *)

Crossrefs

Cf. A088483, A228968.

Sequence in context: A028241 A248166 A234070 * A234831 A280983 A184651

Adjacent sequences: A228975 A228976 A228977 * A228979 A228980 A228981

Keyword

nonn

Author

Pierre CAMI, Sep 10 2013

Extensions

Corrected by Harvey P. Dale, Nov 10 2014

Status

approved