A182702 - OEIS

%I #11 Jun 23 2020 19:05:59

%S 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,

%T 14,7,176,120,88,56,40,24,16,8,270,198,135,99,63,45,27,18,9,420,300,

%U 220,150,110,70,50,30,20,10,616,462,330,242,165,121,77,55,33,22,11

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

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

%H Robert Price, <a href="/A182702/b182702.txt">Table of n, a(n) for n = 1..5050</a> (First 100 rows)

%e Triangle begins:

%e 1;

%e 4, 2;

%e 9, 6, 3;

%e 20, 12, 8, 4;

%e 35, 25, 15, 10, 5;

%e 66, 42, 30, 18, 12, 6;

%t Table[n*PartitionsP[n-k], {n, 0, 11}, {k, 0,  n - 1}] // Flatten (* _Robert Price_, Jun 23 2020 *)

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

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

%Y Column 1 give A066186.

%K nonn,tabl

%O 1,2

%A _Omar E. Pol_, Nov 28 2010

%E More terms from _Michel Marcus_, Feb 13 2014