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

Author

N. J. A. Sloane, Oct 20 2021

Keywords

• nonn
• base

Crossrefs

Suggested by A033564.

Programs

Mathematica

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