A141461 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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