%I #6 Nov 18 2018 01:12:55
%S 2,3,5,6,8,10,11,13,15,16,18,20,21,23,25,27,28,30,32,33,35,37,39,40,
%T 42,44,45,47,49,51,52,54,56,58,59,61,63,65,66,68,70,72,73,75,77,79,80,
%U 82,84,86,88,89,91,93,95,96,98,100,102,103,105,107,109,111,112,114,116,118
%N Least k such that (n+1)*(n+2)*...*(k-1)*k >= n!.
%e a(7) = 11 as 8 < 7!, 8*9 < 7!, 8*9*10 < 7! but 8*9*10*11 = 7920 > 7! = 5040.
%t Do[k = n + 1; s = k; While[s < n!, k++; s = s * k]; Print[k], {n, 1, 30}] (* _Ryan Propper_ *)
%Y Cf. A092980.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Mar 27 2004
%E More terms from _William Rex Marshall_, Jun 22 2005
|