OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..100, flattened
Wikipedia, Partition of a set
EXAMPLE
T(3,2) = 10 because the sum of the entries in the second last blocks of all set partitions of [3] (123, 12|3, 13|2, 1|23, 1|2|3) is 0+3+4+1+2 = 10.
Triangle T(n,k) begins:
1;
5, 1;
19, 10, 1;
75, 57, 17, 1;
323, 285, 145, 26, 1;
1512, 1421, 975, 317, 37, 1;
7630, 7395, 5999, 2865, 616, 50, 1;
41245, 40726, 36183, 22411, 7315, 1094, 65, 1;
...
MATHEMATICA
app[P_, n_] := Module[{P0}, Table[P0 = Append[P, {}]; AppendTo[P0[[i]], n]; If[Last[P0] == {}, Most[P0], P0], {i, 1, Length[P]+1}]];
setPartitions[n_] := setPartitions[n] = If[n == 1, {{{1}}}, Flatten[app[#, n]& /@ setPartitions[n-1], 1]];
T[n_, k_] := Select[setPartitions[n], Length[#] >= k&][[All, -k]] // Flatten // Total;
Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* Jean-François Alcover, Aug 21 2021 *)
CROSSREFS
Column k=1 gives A285424.
KEYWORD
nonn,tabl
AUTHOR
Alois P. Heinz, May 04 2017
STATUS
approved