A146023 Triangle read by rows, square of A027293.

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, 110, 65, 36, 20, 10, 5, 2, 1, 185, 110, 65, 36, 20, 10, 5, 2, 1, 300, 185, 110, 65, 36, 20, 10, 5, 2, 1

Offset: 0

Author

Gary W. Adamson, Oct 26 2008

Keywords

• nonn
• tabl

Comments

Triangle, A000712 (1, 2, 5, 10, 20, 36,...) in every column.

Row sums = A000713: (1, 3, 8, 18, 38, 74, 139,...)

Note that we are working here in the world of lower triangular matrices. - N. J. A. Sloane, Jun 15 2020

Examples

			First few rows of the triangle =
    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;
  110, 65, 36, 20, 10,  5,  2,  1;
...
		

Links

• Robert Price, Table of n, a(n) for n = 0..819 (first 40 rows)

Crossrefs

Cf. A000712, A000713, A027293.

Programs

Mathematica

lim = 10;
A000712 = Table [Length@IntegerPartitions[n, All, Range@n~Join~Range@n], {n, 0, lim - 1}]
Table[Reverse[Take[A000712, n]], {n, lim}] // Flatten (* Robert Price, Jun 15 2020 *)

Extensions

Extraneous data deleted by Robert Price, Jun 15 2020