STATUS
editing
approved
editing
approved
proposed
approved
editing
proposed
(* Second program: *)
nmax = 14;
col[k_] := col[k] = CoefficientList[Sum[x^(n(k n - k + 2)/2 - 1)/(1 - x^n), {n, 1, nmax}] + O[x]^nmax, x];
T[n_, k_] := col[k][[n]];
Table[T[n-k, k], {n, 1, nmax}, {k, 0, n-1}] // Flatten (* Jean-François Alcover, Nov 30 2020 *)
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
The g.f. for column d is Sum_{k>=1} x^(k*(d*k-d+2)/2)/(1-x^k) [information taken from A117277]. - Joerg Arndt, May 05 2020
approved
editing
reviewed
approved