1,1

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

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

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

Cf. A092980.

Sequence in context: A099267 A007067 A186322 * A135260 A248560 A179180

Adjacent sequences: A092976 A092977 A092978 * A092980 A092981 A092982

nonn

Amarnath Murthy, Mar 27 2004

More terms from William Rex Marshall, Jun 22 2005

approved