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,3

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Formula

a(n) = n+A055263(n-1) =n+A007953(a(n-1))

Example

a(10)=19 because a(9)=18, 1+8=9 and 10+9=19

Mathematica

nxt[{n_, a_}]:={n+1, Total[IntegerDigits[a]]+n+1}; Transpose[NestList[nxt, {0, 0}, 70]][[2]] (* Harvey P. Dale, Jun 03 2015 *)

Crossrefs

Cf. A055263.

Sequence in context: A082184 A080817 A139762 * A353199 A138797 A333576

Adjacent sequences: A055259 A055260 A055261 * A055263 A055264 A055265

Keyword

base,easy,nonn

Author

Henry Bottomley, May 08 2000

Status

approved