[go: up one dir, main page]

login
A275780
Number of set partitions of [n] into blocks with distinct element sums.
30
1, 1, 2, 4, 12, 43, 160, 668, 3098, 15465, 83100, 477651, 2914505, 18795814, 127790544, 911448954, 6808162094, 53067398065, 430956571977, 3636314065247, 31841519540324, 288664242344692, 2706949104147162, 26205222185730884, 261681461422075548, 2691088457402830312
OFFSET
0,3
FORMULA
a(n) = A000110(n) - A275781(n).
EXAMPLE
a(3) = 4: 123, 13|2, 1|23, 1|2|3.
a(4) = 12: 1234, 123|4, 124|3, 12|34, 134|2, 13|24, 1|234, 1|23|4, 14|2|3, 1|24|3, 1|2|34, 1|2|3|4.
MATHEMATICA
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
Table[Length[Select[sps[Range[n]], UnsameQ@@Total/@#&]], {n, 0, 10}] (* Gus Wiseman, Jul 13 2019 *)
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 08 2016
EXTENSIONS
a(17)-a(25) from Christian Sievers, Aug 20 2024
STATUS
approved