OFFSET
0,11
COMMENTS
EXAMPLE
The a(0) = 0 through a(14) = 7 strict partitions:
. . . . . . (321) . (431) . (532) . (642) . (743)
(541) (651) (752)
(4321) (5421) (761)
(6321) (5432)
(6431)
(6521)
(7421)
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
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 14 2024
STATUS
approved