OFFSET
0,2
MATHEMATICA
Nest[Append[#1, #2*10^IntegerLength[#3] + #3] & @@ {#, #[[-1]], #[[-1]] - 1} &, {1, 10}, 6] (* Michael De Vlieger, Oct 20 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 20 2021
STATUS
approved