OFFSET
0,7
COMMENTS
LINKS
EXAMPLE
The a(0) = 0 through a(9) = 12 partitions:
. . . (21) . . (42) (421) (431) (63)
(321) (3211) (521) (432)
(2211) (3221) (531)
(4211) (621)
(32111) (3321)
(4221)
(4311)
(5211)
(32211)
(42111)
(222111)
(321111)
MATHEMATICA
conj[y_]:=If[Length[y]==0, y, Table[Length[Select[y, #>=k&]], {k, 1, Max[y]}]];
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Length/@Split[#]&&!UnsameQ@@Length/@Split[conj[#]]&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 14 2025
STATUS
approved
