A332551 a(0)=0; thereafter a(n+1) = a(n) + A332550(a(n)).

0, 9, 18, 26, 34, 42, 50, 58, 66, 84, 92, 100, 117, 134, 141, 158, 165, 172, 179, 186, 193, 200, 217, 224, 241, 248, 255, 272, 289, 296, 303, 320, 327, 334, 351, 358, 365, 372, 379, 386, 393, 410, 417, 424, 441, 458, 465, 472, 479, 486, 493, 500, 517, 524, 531

Offset

0,2

Links

Scott R. Shannon, Table of n, a(n) for n = 1..10000

Eric Angelini, Integer + imbalance, Feb 20 2020.

Mathematica

Nest[Append[#, #1 + 10*Max@ #3[[All, -1]] - Length@ #2 & @@ {#1, #2, Tally@ #2} & @@ {#[[-1]], IntegerDigits@ #[[-1]]}] &, {0}, 54] (* Michael De Vlieger, Feb 21 2020 *)

Crossrefs

Cf. A332550.

Sequence in context: A328252 A227279 A102042 * A121282 A205716 A110529

Adjacent sequences: A332548 A332549 A332550 * A332552 A332553 A332554

Keyword

nonn

Author

N. J. A. Sloane, Feb 21 2020, based on a message from Eric Angelini, Feb 20 2020.

Status

approved