OFFSET
0,3
COMMENTS
EXAMPLE
The a(0) = 1 through a(7) = 11 partitions:
() (1) (2) (3) (4) (5) (6) (7)
(11) (21) (22) (32) (33) (43)
(111) (31) (41) (42) (52)
(1111) (221) (51) (61)
(311) (222) (322)
(11111) (321) (331)
(411) (421)
(111111) (511)
(2221)
(4111)
(1111111)
MATHEMATICA
msubs[s_]:=Join@@@Tuples[Table[Take[t, i], {t, Split[s]}, {i, 0, Length[t]}]];
Table[Length[Select[IntegerPartitions[n], UnsameQ@@Total/@Select[msubs[#], SameQ@@#&]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 23 2022
STATUS
approved