OFFSET
1,2
FORMULA
a(n) = a(n-1)*floor(log(a(n-1)) + 1) + 1.
MATHEMATICA
a = {1}; Do[AppendTo[a, a[[ -1]]*Length[IntegerDigits[a[[ -1]]]] + 1], {40}]; a (* Stefan Steinerberger, Jan 30 2008 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rolf Pleisch, Jan 28 2008
EXTENSIONS
More terms from Stefan Steinerberger, Jan 30 2008
STATUS
approved