A092979 Least k such that (n+1)*(n+2)*...*(k-1)*k >= n!.

2, 3, 5, 6, 8, 10, 11, 13, 15, 16, 18, 20, 21, 23, 25, 27, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 45, 47, 49, 51, 52, 54, 56, 58, 59, 61, 63, 65, 66, 68, 70, 72, 73, 75, 77, 79, 80, 82, 84, 86, 88, 89, 91, 93, 95, 96, 98, 100, 102, 103, 105, 107, 109, 111, 112, 114, 116, 118

Offset

1,1

Links

Table of n, a(n) for n=1..68.

Example

a(7) = 11 as 8 < 7!, 8*9 < 7!, 8*9*10 < 7! but 8*9*10*11 = 7920 > 7! = 5040.

Mathematica

Do[k = n + 1; s = k; While[s < n!, k++; s = s * k]; Print[k], {n, 1, 30}] (* Ryan Propper *)

Crossrefs

Cf. A092980.

Sequence in context: A099267 A007067 A186322 * A135260 A248560 A179180

Adjacent sequences: A092976 A092977 A092978 * A092980 A092981 A092982

Keyword

nonn

Author

Amarnath Murthy, Mar 27 2004

Extensions

More terms from William Rex Marshall, Jun 22 2005

Status

approved