OFFSET
1,2
FORMULA
a(n) = a(n-1)+(n-1)*s(n-1), where s(n) stands for the sum of the digits of n.
EXAMPLE
a(6) = a(5)+ 5*s(a(5)) = 48+5*s(48) = 48+5*12 = 108
MATHEMATICA
nxt[{n_, a_}]:={n+1, a+(n+1)Total[IntegerDigits[a]]}; Transpose[NestList[ nxt, {0, 1}, 50]][[2]] (* Harvey P. Dale, Jun 25 2013 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 20 2006
EXTENSIONS
Corrected by Harvey P. Dale, Jun 25 2013
STATUS
approved