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 A000462 #27 Feb 16 2025 08:32:21
%S A000462 1,2,10,11,12,100,101,102,110,1000,1001,1002,1010,1011,10000,10001,
%T A000462 10002,10010,10011,10012,100000,100001,100002,100010,100011,100012,
%U A000462 100100,1000000,1000001,1000002,1000010,1000011,1000012,1000100,1000101,10000000,10000001
%N A000462 Numbers written in base of triangular numbers.
%C A000462 A003056 and A057945 give lengths and sums. - _Reinhard Zumkeller_, Mar 27 2011
%D A000462 F. Smarandache, "Properties of the numbers", Univ. of Craiova Archives, 1975; Arizona State University Special Collections, Tempe, AZ.
%H A000462 Reinhard Zumkeller, <a href="/A000462/b000462.txt">Table of n, a(n) for n = 1..10000</a>
%H A000462 F. Iacobescu, <a href="http://fs.unm.edu/FANELI.HTM">Smarandache Partition Type and Other Sequences</a>, Bull. Pure Appl. Sciences, Vol. 16E, No. 2 (1997), pp. 237-240.
%H A000462 F. Smarandache, <a href="http://www.gallup.unm.edu/~smarandache/Sequences-book.pdf">Sequences of Numbers Involved in Unsolved Problems</a>.
%H A000462 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SmarandacheSequences.html">Smarandache Sequences</a>.
%e A000462 The digits (from right to left) have values 1, 3, 6, 10, etc. (A000217), hence a(20) = 10012 because 20 = 1*15 + 0*10 + 0*6 + 1*3 + 2*1. - _Stefano Spezia_, Apr 25 2024
%t A000462 A000217[n_]:=n(n+1)/2; a[n_]:=Module[{k=0}, num=n; digits={}; k=Floor[(Sqrt[1+8num]-1)/2]; While[num>0, AppendTo[digits, Floor[num/A000217[k]]]; num=Mod[num, A000217[k]]; kold=k; k=Floor[(Sqrt[1+8num]-1)/2]; While[k<kold-1, AppendTo[digits,0]; kold--]]; FromDigits[digits]]; Array[a,37] (* _Stefano Spezia_, Apr 25 2024 *)
%o A000462 (Haskell)
%o A000462 a000462 n = g [] n $ reverse $ takeWhile (<= n) $ tail a000217_list where
%o A000462 g as 0 [] = read $ concat $ map show $ reverse as :: Integer
%o A000462 g as x (t:ts) = g (a:as) r ts where (a,r) = divMod x t
%o A000462 -- _Reinhard Zumkeller_, Mar 27 2011
%Y A000462 Cf. A000217, A003056, A057945.
%K A000462 nonn,base,easy
%O A000462 1,2
%A A000462 John Radu (Suttones(AT)aol.com)