login
Square array T(n,k) = (n*k-1)*A000041(n) read by antidiagonals upwards.
4

%I #21 Nov 03 2017 03:44:13

%S 0,2,1,6,6,2,15,15,10,3,28,35,24,14,4,55,63,55,33,18,5,90,121,98,75,

%T 42,22,6,154,195,187,133,95,51,26,7,240,330,300,253,168,115,60,30,8,

%U 378,510,506,405,319,203,135,69,34,9

%N Square array T(n,k) = (n*k-1)*A000041(n) read by antidiagonals upwards.

%F T(n,1) = A182724(n).

%F T(n,24) = A183011(n).

%e Square array T(n,k) begins:

%e 0, 1, 2, 3, 4, 5, ...

%e 2, 6, 10, 14, 18, 22, ...

%e 6, 15, 24, 33, 42, 51, ...

%e 15, 35, 55, 75, 95, 115, ...

%e 28, 63, 98, 133, 168, 203, ...

%e 55, 121, 187, 253, 319, 385, ...

%p T:= (n,k)-> (n*k-1)*combinat[numbpart](n):

%p seq (seq (T(d-k, k), k=1..d-1), d=2..11);

%t Table[With[{n = m - k + 1}, (n k - 1) PartitionsP[n]], {m, 10}, {k, m}] // Flatten (* _Michael De Vlieger_, Nov 02 2017 *)

%Y Cf. A000041, A135010, A182724, A182728, A183009, A183010, A183011.

%K nonn,easy,tabl

%O 1,2

%A _Omar E. Pol_, Jan 22 2011