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 A180039 #10 Jul 22 2025 08:24:16 %S A180039 1,112,111223,1111222334,111112222333445,111111222223333444556, %T A180039 1111111222222333334444555667,111111112222222333333444445555666778, %U A180039 111111111222222223333333444444555556666777889 %N A180039 Combinatorial tetrahedral numbers. %C A180039 These are partial sums in adding base-1 triangular numbers (1 + 111 + 111111 + 1111111111,...). %C A180039 Third row of: %C A180039 1,2,3,4,5,... %C A180039 1,12,123,1234,12345,... %C A180039 1,112,111223,1111222334,111112222333445,... %C A180039 1,1112,1111112223,11111111112222223334,11111111111111122222222223333334445,.. %F A180039 a(n) = Sum_{i=1..n} A002275(A000217(i)). - _R. J. Mathar_, Nov 02 2016 %e A180039 For n=4, a(4)= 1 + 111 + 111111 + 1111111111 = 1111222334. %e A180039 Combinatorially: %e A180039 1,12,123,1234,12345,123456,... %e A180039 1,21,321,4321,54321,654321,... %e A180039 ----------------------------- X %e A180039 1,112,111223,1111222334....... %e A180039 For n =(4),a(4)= 4 x 1 + 3 x 2 + 2 x 3 + 1 x 4 = 1111 + 222 + 33 + 4 = 1111222334. %t A180039 Accumulate[Table[FromDigits[PadRight[{},n,1]],{n,Accumulate[Range[10]]}]] (* _Harvey P. Dale_, Jun 12 2021 *) %Y A180039 Cf. A000292, A014824, A180027. %K A180039 nonn,easy,base %O A180039 1,2 %A A180039 _Mark Dols_, Aug 07 2010