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