This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A104759 #24 May 08 2025 08:54:55
%S A104759 1,21,321,4321,54321,654321,7654321,87654321,987654321,1987654321,
%T A104759 1987654321,101987654321,1101987654321,11101987654321,211101987654321,
%U A104759 1211101987654321,31211101987654321,131211101987654321,4131211101987654321,14131211101987654321,514131211101987654321
%N A104759 Concatenation of digits of natural numbers from n down to 1.
%H A104759 Michael De Vlieger, <a href="/A104759/b104759.txt">Table of n, a(n) for n = 1..1000 (last term has 1000 decimal digits)</a>
%H A104759 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ConsecutiveNumberSequences.html">Consecutive numbers sequences</a>.
%F A104759 a(n) = A138793(n) mod 10^(n-1). - _R. J. Mathar_, Sep 17 2011
%e A104759 a(11) = a(10) because no number may begin with 0.
%e A104759 a(9)= [123456789]101112131415...=987654321
%e A104759 a(10)=[1234567891]01112131415...=1987654321
%e A104759 a(11)=[12345678910]1112131415...=01987654321=1987654321
%e A104759 a(12)=[123456789101]112131415...=101987654321
%e A104759 a(13)=[1234567891011]12131415...=1101987654321
%e A104759 a(14)=[12345678910111]2131415...=11101987654321
%e A104759 a(15)=[123456789101112]131415...=211101987654321
%t A104759 f[n_] := Block[{t = Reverse@ Flatten@ IntegerDigits@ Range@ n, k}, Reap@ For[k = 1, k <= Length@ t, k++, Sow[FromDigits@ Take[t, -k]]] // Flatten // Rest]; f@ 14 (* _Michael De Vlieger_, Mar 23 2015 *)
%t A104759 lst = {}; Do[lst = Join[lst, IntegerDigits[n]], {n, 1, 100}]; Table[FromDigits[Reverse[lst[[Range[1, n]]]]], {n, 1, Length[lst]}] (* _Robert Price_, Mar 24 2015 *)
%Y A104759 Cf. A014925, A000422, A057138, A060554, A138793.
%K A104759 easy,nonn,base
%O A104759 1,2
%A A104759 _Alexandre Wajnberg_ & Juliette Bruyndonckx, Apr 23 2005