A055262 n + sum of digits of a(n-1).
0, 1, 3, 6, 10, 6, 12, 10, 9, 18, 19, 21, 15, 19, 24, 21, 19, 27, 27, 28, 30, 24, 28, 33, 30, 28, 36, 36, 37, 39, 42, 37, 42, 39, 46, 45, 45, 46, 48, 51, 46, 51, 48, 55, 54, 54, 55, 57, 60, 55, 60, 57, 64, 63, 63, 64, 66, 69, 73, 69, 75, 73, 72, 72, 73, 75, 78, 82, 78, 84, 82
Offset: 0
Examples
a(10)=19 because a(9)=18, 1+8=9 and 10+9=19
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A055263.
Programs
-
Mathematica
nxt[{n_,a_}]:={n+1,Total[IntegerDigits[a]]+n+1}; Transpose[NestList[nxt,{0,0},70]][[2]] (* Harvey P. Dale, Jun 03 2015 *)