OFFSET
0,3
MATHEMATICA
LogBase10Stirling[n_] := Floor[ Log[10, 2 Pi n]/2 + n*Log[10, n/E] + Log[10, 1 + 1/(12 n) + 1/(288 n^2) - 139/(51840 n^3) - 571/(2488320 n^4) + 163879/(209018880 n^5)]]; Table[ LogBase10Stirling[2^n] + 1, {n, 0, 30}]
IntegerLength[(2^Range[0, 30])!] (* Harvey P. Dale, Nov 05 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jun 18 2014
STATUS
approved