OFFSET
0,4
LINKS
Benedict W. J. Irwin, Table of n, a(n) for n = 0..10000
FORMULA
EXAMPLE
e^10 = 22026.46579480671..., so a(10) = 5.
MATHEMATICA
f[n_] := 1 + Floor@ Log10@ Exp@ n; Array[f, 75, 0]
Table[Sum[DigitCount[Floor[Exp[1]^k]][[n]], {n, 1, 10}], {k, 0, 150}] (* Benedict W. J. Irwin, Apr 13 2016 *)
IntegerLength[Floor[E^Range[0, 80]]] (* Harvey P. Dale, Aug 28 2017 *)
PROG
(PARI) a(n) = localprec(n+1); #Str(floor(exp(n))); \\ Michel Marcus, Dec 05 2020
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Feb 01 2015
STATUS
approved