|
%I #32 Jun 07 2017 19:25:31
%S 4,8,24,90,114,524,888,1130,1328,9552,15684,19610,31398,155922,360654,
%T 370262,492114,1349534,1357202,2010734,4652354,17051708,20831324,
%U 47326694,122164748,189695660,191912784,387096134,436273010,1294268492
%N Increasing length runs of consecutive composite numbers (starting points).
%C There are runs of n consecutive composite numbers for every n. For example, the n numbers (n+1)!+2 ... (n+1)!+n+1 are composite. Such a run may start of course earlier than this. - _Joerg Arndt_, May 01 2013
%H Jens Kruse Andersen, <a href="/A008950/b008950.txt">Table of n, a(n) for n=1..74</a> (using A002386)
%H Jens Kruse Andersen, <a href="http://primerecords.dk/primegaps/gaps20.htm">The Top-20 Prime Gaps</a>
%H Jens Kruse Andersen, <a href="http://primerecords.dk/primegaps/megagap2.htm">New record prime gap</a>
%H Jens Kruse Andersen, <a href="http://primerecords.dk/primegaps/maximal.htm">Maximal gaps</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeGaps.html">Prime Gaps.</a>
%H J. Young and A. Potler, <a href="http://dx.doi.org/10.1090/S0025-5718-1989-0947470-1">First occurrence prime gaps</a>, Math. Comp., 52 (1989), 221-224.
%F a(n) = A002386(n+1)+1.
%F a(n) <= (n+1)! + 2. [_Joerg Arndt_, May 01 2013]
%t maxGap = 1; Reap[Do[p = Prime[n]; gap = Prime[n+1] - p; If[gap > maxGap, Print[p+1]; Sow[p+1]; maxGap = gap], {n, 2, 10^8 }]][[2, 1]] (* _Jean-François Alcover_, Jun 15 2012 *)
%Y Cf. A008995, A008996.
%K nonn,nice
%O 1,1
%A Mark Cramer (m.cramer(AT)qut.edu.au). Computed by Dennis Yelle (dennis(AT)netcom.com).
|
