|
%I #8 Dec 12 2014 10:33:08
%S 2903,13463,13901,14947,15373,15377,21397,21557,21859,28277,30869,
%T 33199,35591,37691,42221,42569,45821,55661,64661,64919,64921,68207,
%U 68209,68897,68899,73939,74201,78577,83089,85513,87313,88001,90907
%N First term of weak prime sextet: p(m+1)-p(m) < p(m+2)-p(m+1) < p(m+3)-p(m+2) < p(m+4)-p(m+3) < p(m+5)-p(m+4).
%H Harvey P. Dale, <a href="/A054828/b054828.txt">Table of n, a(n) for n = 1..1000</a>
%t Transpose[Select[Partition[Prime[Range[9000]],6,1],AllTrue[ Differences[ #,2], Positive]&]] [[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Dec 12 2014 *)
%Y Cf. A051635, A054800-A054840.
%K nonn
%O 1,1
%A _Henry Bottomley_, Apr 10 2000
|
