Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
First of eight consecutive primes that are four sets of twin primes.
1

%I #9 Nov 13 2015 07:51:12

%S 9419,62969,72221,392261,495569,663569,909287,909299,1006301,1138367,

%T 1159187,1173539,1322147,2144477,2168651,2502341,2596619,2596637,

%U 2668217,3020999,3215711,3664679,4890857,5248079,5261699,5532269

%N First of eight consecutive primes that are four sets of twin primes.

%C Could be called unrestricted prime octets.

%H Harvey P. Dale, <a href="/A136145/b136145.txt">Table of n, a(n) for n = 1..200</a>

%t lst={};Do[p0=Prime[n];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];If[p1-p0==p3-p2==p5-p4==p7-p6==2,AppendTo[lst,p0]],{n,3*9!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Apr 02 2010 *)

%t Transpose[Select[Partition[Prime[Range[400000]],8,1],Union[ Differences/@ Partition[ #,2]]=={{2}}&]][[1]] (* _Harvey P. Dale_, Nov 13 2015 *)

%K nonn

%O 1,1

%A _Harry J. Smith_, Dec 16 2007