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 A146023 #22 Oct 03 2024 05:39:59 %S A146023 1,2,1,5,2,1,10,5,2,1,20,10,5,2,1,36,20,10,5,2,1,65,36,20,10,5,2,1, %T A146023 110,65,36,20,10,5,2,1,185,110,65,36,20,10,5,2,1,300,185,110,65,36,20, %U A146023 10,5,2,1 %N A146023 Triangle read by rows, square of A027293. %C A146023 Triangle, A000712 (1, 2, 5, 10, 20, 36,...) in every column. %C A146023 Row sums = A000713: (1, 3, 8, 18, 38, 74, 139,...) %C A146023 Note that we are working here in the world of lower triangular matrices. - _N. J. A. Sloane_, Jun 15 2020 %H A146023 Robert Price, <a href="/A146023/b146023.txt">Table of n, a(n) for n = 0..819</a> (first 40 rows) %e A146023 First few rows of the triangle = %e A146023 1; %e A146023 2, 1; %e A146023 5, 2, 1; %e A146023 10, 5, 2, 1; %e A146023 20, 10, 5, 2, 1; %e A146023 36, 20, 10, 5, 2, 1; %e A146023 65, 36, 20, 10, 5, 2, 1; %e A146023 110, 65, 36, 20, 10, 5, 2, 1; %e A146023 ... %t A146023 lim = 10; %t A146023 A000712 = Table [Length@IntegerPartitions[n, All, Range@n~Join~Range@n], {n, 0, lim - 1}] %t A146023 Table[Reverse[Take[A000712, n]], {n, lim}] // Flatten (* _Robert Price_, Jun 15 2020 *) %Y A146023 Cf. A000712, A000713, A027293. %K A146023 nonn,tabl %O A146023 0,2 %A A146023 _Gary W. Adamson_, Oct 26 2008 %E A146023 Extraneous data deleted by _Robert Price_, Jun 15 2020