OFFSET
1,1
LINKS
Kevin Ryde, Table of n, a(n) for n = 1..400
Kevin Ryde, C code.
MATHEMATICA
LogBase10Stirling[n_] := Floor[ Log[10, 2 Pi n]/2 + n * Log[10, n/E] + Log[10, 1 + 1/(12n) + 1/(288n^2) - 139/(51840n^3) - 571/(2488320n^4) + 163879/(209018880n^5)]]; Do[k = 10^(n - 1); While[ LogBase10Stirling[k + 1] - LogBase10Stirling[k] < n, k++ ]; a[n] = k; Print[ a[n]], {n, 1, 14}]
PROG
(C) /* See links. */
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 26 2003
EXTENSIONS
a(15)-a(20) from Kevin Ryde, Mar 09 2024
STATUS
approved