A141461 Twin primes belonging to packs of 5 or more twin pairs.

909287, 909289, 909299, 909301, 909317, 909319, 909329, 909331, 909341, 909343, 2596619, 2596621, 2596637, 2596639, 2596661, 2596663, 2596667, 2596669, 2596679, 2596681

Offset

1,1

Links

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

Mathematica

lst={}; d=2; Do[p0=Prime[n+0]; p1=Prime[n+1]; p2=Prime[n+2]; p3=Prime[n+3]; p4=Prime[n+4]; p5=Prime[n+5]; p6=Prime[n+6]; p7=Prime[n+7]; p8=Prime[n+8]; p9=Prime[n+9]; d1=p1-p0; d2=p3-p2; d3=p5-p4; d4=p7-p6; d5=p9-p8; If[d1==d&&d2==d&&d3==d&&d4==d&&d5==d, AppendTo[lst, p0]; AppendTo[lst, p1]; AppendTo[lst, p2]; AppendTo[lst, p3]; AppendTo[lst, p4]; AppendTo[lst, p5]; AppendTo[lst, p6]; AppendTo[lst, p7]; AppendTo[lst, p8]; AppendTo[lst, p9]], {n, 10^4, 2*10^5}]; Union[lst]

Crossrefs

Cf. A069467.

Sequence in context: A348101 A179735 A015333 * A035793 A102503 A251908

Adjacent sequences: A141458 A141459 A141460 * A141462 A141463 A141464

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 08 2008

Status

approved