|
%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).
|
