|
EXAMPLE
|
The a(1) = 1 through a(6) = 17 splits:
(1) (2) (3) (4) (5) (6)
(1,1) (2,1) (2,2) (3,2) (3,3)
(1,1,1) (3,1) (4,1) (4,2)
(1),(1,1) (2,1,1) (2,2,1) (5,1)
(1,1,1,1) (3,1,1) (2,2,2)
(1),(1,1,1) (2,1,1,1) (3,2,1)
(2),(2,1) (4,1,1)
(1,1,1,1,1) (2,2,1,1)
(2),(1,1,1) (2),(2,2)
(1),(1,1,1,1) (3,1,1,1)
(1,1),(1,1,1) (2,1,1,1,1)
(2),(2,1,1)
(1,1,1,1,1,1)
(2),(1,1,1,1)
(1),(1,1,1,1,1)
(1,1),(1,1,1,1)
(1),(1,1),(1,1,1)
|
|
MATHEMATICA
|
splits[dom_]:=Append[Join@@Table[Prepend[#, Take[dom, i]]&/@splits[Drop[dom, i]], {i, Length[dom]-1}], {dom}];
Table[Sum[Length[Select[splits[ctn], Less@@Total/@#&]], {ctn, IntegerPartitions[n]}], {n, 0, 10}]
|