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,2

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

Links

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

Example

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;
...

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 *)

Crossrefs

Cf. A000712, A000713, A027293.

Sequence in context: A249756 A207607 A146024 * A104766 A361681 A105084

Adjacent sequences: A146020 A146021 A146022 * A146024 A146025 A146026

Keyword

nonn,tabl

Author

Gary W. Adamson, Oct 26 2008

Extensions

Extraneous data deleted by Robert Price, Jun 15 2020

Status

approved