A008995 - OEIS

%I #25 Aug 05 2020 13:45:06

%S 4,10,28,96,126,540,906,1150,1360,9586,15726,19660,31468,156006,

%T 360748,370372,492226,1349650,1357332,2010880,4652506,17051886,

%U 20831532,47326912,122164968,189695892,191913030

%N Increasing length runs of consecutive composite numbers (endpoints).

%D Netnews group rec.puzzles, circa Mar 01 1996 (I would like to get the exact reference).

%H MathForum rec.puzzles archive, <a href="http://web.archive.org/web/20150322065359/http://mathforum.org/rec_puzzles_archive/arithmetic.html">Arithmetic Question 8 - consecutive.composites</a>, June 2005.

%H User "Abigail", <a href="https://groups.google.com/d/msg/rec.puzzles/IPmRCBFQy6M/RH3J7xseUqoJ">1000 consectutive composites</a> (sic), post in newsgroup rec.puzzles, Jun 19 1996.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeGaps.html">Prime Gaps</a>.

%F a(n) = A000101(n+1)-1.

%t maxGap = 1; Reap[ Do[ gap = Prime[n + 1] - (p = Prime[n]); If[gap > maxGap, Print[p + gap - 1]; Sow[p + gap - 1]; maxGap = gap], {n, 2, 10^8}]][[2, 1]] (* _Jean-François Alcover_, Jun 12 2013 *)

%Y Cf. A000101, A008950, A008996.

%K nonn

%O 1,1

%A Mark Cramer (m.cramer(AT)qut.edu.au). Computed by Dennis Yelle (dennis(AT)netcom.com).