login
A196234
Number of different ways to select 7 disjoint subsets from {1..n} with equal element sum.
7
1, 3, 12, 33, 114, 403, 1618, 8946, 45917, 189428, 979841, 5497818, 31708309, 178006222, 1091681487, 6207647636, 32636979255, 184162388392, 1069147827024, 6446977283374
OFFSET
13,2
EXAMPLE
a(14) = 3:
{1,12}, {2,11}, {3,10}, {4,9}, {5,8}, {6,7}, {13} have element sum 13; {1,13}, {2,12}, {3,11}, {4,10}, {5,9}, {6,8}, {14} have element sum 14; {1,14}, {2,13}, {3,12}, {4,11}, {5,10}, {6,9}, {7,8} have element sum 15.
MATHEMATICA
b[l_, n_, k_] := b[l, n, k] = Module[{i, j}, If[l == Array[0 &, k], 1, If[Total[l] > n*(n - 1)/2, 0, b[l, n - 1, k]] + Sum[If[l[[j]] - n < 0, 0, b[Sort[Table[l[[i]] - If[i == j, n, 0], {i, 1, k}]], n-1, k]], {j, 1, k} ]]];
T[n_, k_] := Sum[b[Array[t&, k], n, k], {t, 2*k - 1, Floor[n*(n+1)/(2*k) ]}]/k!;
a[n_] := T[n, 7];
Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 13, 25}] (* Jean-François Alcover, Jun 08 2018, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Alois P. Heinz, Sep 29 2011
EXTENSIONS
a(26)-a(28) from Alois P. Heinz, Sep 26 2014
a(29)-a(32) from Bert Dobbelaere, Sep 02 2019
STATUS
approved