cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A141461 #2 Mar 31 2012 12:38:15
%S A141461 909287,909289,909299,909301,909317,909319,909329,909331,909341,
%T A141461 909343,2596619,2596621,2596637,2596639,2596661,2596663,2596667,
%U A141461 2596669,2596679,2596681
%N A141461 Twin primes belonging to packs of 5 or more twin pairs.
%t A141461 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]
%Y A141461 Cf. A069467.
%K A141461 nonn
%O A141461 1,1
%A A141461 _Vladimir Joseph Stephan Orlovsky_, Aug 08 2008