|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|