OFFSET
0,4
COMMENTS
EXAMPLE
The a(1) = 1 through a(8) = 8 partitions:
(1) (2) (3) (4) (5) (6) (7) (8)
(21) (31) (32) (42) (43) (53)
(111) (41) (51) (52) (62)
(221) (222) (61) (71)
(311) (411) (322) (332)
(2111) (331) (521)
(11111) (421) (611)
(511) (5111)
(2221)
(3211)
(4111)
(22111)
(31111)
(211111)
(1111111)
MATHEMATICA
biqQ[y_]:=MemberQ[Total/@Subsets[y], Total[y]/2];
Table[Length[Select[IntegerPartitions[n], Not@*biqQ]], {n, 0, 15}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Apr 07 2024
STATUS
approved