%I #5 Apr 18 2024 09:32:43
%S 0,0,1,2,5,11,24,51,112,233
%N Number of quanimous subsets of {1..n} containing n, meaning there is more than one set partition with equal block-sums.
%C A finite multiset of numbers is defined to be quanimous iff it can be partitioned into two or more multisets with equal sums. Quanimous partitions are counted by A321452 and ranked by A321454.
%e The set s = {3,4,6,8,9} has set partitions {{3,4,6,8,9}} and {{3,4,8},{6,9}} with equal block-sums, so s is counted under a(9).
%e The a(1) = 0 through a(6) = 11 subsets:
%e . . {1,2,3} {1,3,4} {1,4,5} {1,5,6}
%e {1,2,3,4} {2,3,5} {2,4,6}
%e {1,2,4,5} {1,2,3,6}
%e {2,3,4,5} {1,2,5,6}
%e {1,2,3,4,5} {1,3,4,6}
%e {2,3,5,6}
%e {3,4,5,6}
%e {1,2,3,4,6}
%e {1,2,4,5,6}
%e {2,3,4,5,6}
%e {1,2,3,4,5,6}
%t sps[{}]:={{}};sps[set:{i_,___}]:=Join@@Function[s,Prepend[#,s]& /@ sps[Complement[set,s]]]/@Cases[Subsets[set],{i,___}];
%t Table[Length[Select[Subsets[Range[n]], MemberQ[#,n]&&Length[Select[sps[#],SameQ@@Total/@#&]]>1&]],{n,10}]
%Y The "bi-" version is A232466, complement A371793.
%Y The complement is counted by A371790.
%Y First differences of A371796, complement A371789.
%Y A371736 counts non-quanimous strict partitions.
%Y A371737 counts quanimous strict partitions.
%Y A371783 counts k-quanimous partitions.
%Y A371791 counts biquanimous subsets, complement A371792.
%Y Cf. A000005, A002219, A035470, A038041, A275972, A279791, A321452, A371795.
%K nonn,more
%O 1,4
%A _Gus Wiseman_, Apr 17 2024
|