OFFSET
0,4
COMMENTS
EXAMPLE
The a(1) = 1 through a(13) = 3 partitions:
(1) (11) (21) (1111) (221) (111111) (2221) (3311)
(111) (311) (4111) (11111111)
(11111) (1111111)
.
(22221) (1111111111) (33311) (111111111111) (2222221)
(51111) (44111) (7111111)
(111111111) (222221) (1111111111111)
(611111)
(11111111111)
MATHEMATICA
normQ[m_]:=Or[m=={}, Union[m]==Range[Max[m]]];
Table[Length[Select[IntegerPartitions[n], normQ[Total/@Union[ReplaceList[#, {___, s__, ___}:>{s}]]]&&UnsameQ@@Total/@Union[ReplaceList[#, {___, s__, ___}:>{s}]]&]], {n, 0, 20}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, May 20 2019
STATUS
approved