OFFSET
0,4
COMMENTS
EXAMPLE
The a(0) = 1 through a(9) = 8 strict partitions:
() (1) (2) (3) (4) (5) (6) (7) (8) (9)
(21) (31) (32) (42) (43) (53) (54)
(41) (51) (52) (62) (63)
(61) (71) (72)
(421) (521) (81)
(432)
(531)
(621)
MATHEMATICA
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]& /@ sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&Length[Select[sps[#], SameQ@@Total/@#&]]==1&]], {n, 0, 30}]
CROSSREFS
A371783 counts k-quanimous partitions.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 14 2024
STATUS
approved