A182702 Triangle T(n,k) = n*(A000041(n-k)) read by rows, k>=0.

1, 4, 2, 9, 6, 3, 20, 12, 8, 4, 35, 25, 15, 10, 5, 66, 42, 30, 18, 12, 6, 105, 77, 49, 35, 21, 14, 7, 176, 120, 88, 56, 40, 24, 16, 8, 270, 198, 135, 99, 63, 45, 27, 18, 9, 420, 300, 220, 150, 110, 70, 50, 30, 20, 10, 616, 462, 330, 242, 165, 121, 77, 55, 33, 22, 11

Offset

1,2

Comments

The same as A182700, but without the last term of row n.

Links

Robert Price, Table of n, a(n) for n = 1..5050 (First 100 rows)

Example

Triangle begins:
1;
4, 2;
9, 6, 3;
20, 12, 8, 4;
35, 25, 15, 10, 5;
66, 42, 30, 18, 12, 6;

Mathematica

Table[n*PartitionsP[n-k], {n, 0, 11}, {k, 0,  n - 1}] // Flatten (* Robert Price, Jun 23 2020 *)

Prog

(PARI) tabl(nn) = {for (n = 1, nn, for (k = 0, n-1, print1(n*numbpart(n-k), ", "); ); print(); ); } \\ Michel Marcus, Feb 13 2014

Crossrefs

Cf. A000041, A135010, A138121, A182701, A182702.

Column 1 give A066186.

Sequence in context: A114577 A285089 A191426 * A282600 A326845 A257734

Adjacent sequences: A182699 A182700 A182701 * A182703 A182704 A182705

Keyword

nonn,tabl

Author

Omar E. Pol, Nov 28 2010

Extensions

More terms from Michel Marcus, Feb 13 2014

Status

approved