OFFSET
0,4
EXAMPLE
The a(6) = 9 split partitions:
(6)
(51) (5)(1)
(42) (4)(2)
(321) (32)(1) (3)(21) (3)(2)(1).
MATHEMATICA
comps[q_]:=Table[Table[Take[q, {Total[Take[c, i-1]]+1, Total[Take[c, i]]}], {i, Length[c]}], {c, Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y], OrderedQ[Total/@#, GreaterEqual]&]], {y, Select[IntegerPartitions[n], UnsameQ@@#&]}], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 29 2018
STATUS
approved