|
| |
|
|
A182702
|
|
Triangle T(n,k) = n*(A000041(n-k)) read by rows, k>=0.
|
|
4
|
|
|
|
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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
The same as A182700, but without the last term of row n.
|
|
|
LINKS
|
|
|
|
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
|
|
|
|
KEYWORD
|
|
|
|
AUTHOR
|
|
|
|
EXTENSIONS
|
|
|
|
STATUS
|
approved
|
| |
|
|
