A348466 a(0)=1; for n >= 0, a(n+1) is the concatenation of a(n) and a(n)-1.

1, 10, 109, 109108, 109108109107, 109108109107109108109106, 109108109107109108109106109108109107109108109105, 109108109107109108109106109108109107109108109105109108109107109108109106109108109107109108109104

Offset

0,2

Links

Table of n, a(n) for n=0..7.

Mathematica

Nest[Append[#1, #2*10^IntegerLength[#3] + #3] & @@ {#, #[[-1]], #[[-1]] - 1} &, {1, 10}, 6] (* Michael De Vlieger, Oct 20 2021 *)

Crossrefs

Suggested by A033564.

Sequence in context: A075508 A095176 A061749 * A280566 A280834 A281305

Adjacent sequences: A348463 A348464 A348465 * A348467 A348468 A348469

Keyword

nonn,base

Author

N. J. A. Sloane, Oct 20 2021

Status

approved