A365925 Number of subset-sums of strict integer partitions of n.
1, 2, 2, 6, 6, 10, 17, 22, 29, 42, 59, 74, 102, 130, 171, 226, 281, 356, 454, 566, 699, 896, 1080, 1342, 1637, 2006, 2413, 2962, 3548, 4286, 5114, 6148, 7272, 8738, 10268, 12224, 14387, 16996, 19863, 23450, 27257, 31984, 37187, 43364, 50173, 58428, 67322
Offset: 0
Keywords
Examples
The a(6) = 17 ways, showing each strict partition and its subset-sums: (6): 0,6 (51): 0,1,5,6 (42): 0,2,4,6 (321): 0,1,2,3,4,5,6
Crossrefs
The positive case is A284640.
Programs
-
Mathematica
Table[Total[Length[Union[Total/@Subsets[#]]]& /@ Select[IntegerPartitions[n], UnsameQ@@#&]],{n,30}]
Comments