0,3
a(n) = a(n-1) + A043537(a(n-1)).
Table of n, a(n) for n=0..69.
nxt[n_]:=n+Length[Select[DigitCount[n], #!=0&]]
Prepend[NestList[nxt, 1, 80], 0] [From Harvey P. Dale, Dec. 26, 2010]
Sequence in context: A206718 A190760 A067036 * A172432 A317622 A067082
Adjacent sequences: A119820 A119821 A119822 * A119824 A119825 A119826
nonn,base
Reinhard Zumkeller, May 25 2006
approved