login
A141461
Twin primes belonging to packs of 5 or more twin pairs.
0
909287, 909289, 909299, 909301, 909317, 909319, 909329, 909331, 909341, 909343, 2596619, 2596621, 2596637, 2596639, 2596661, 2596663, 2596667, 2596669, 2596679, 2596681
OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
STATUS
approved