OFFSET
0,3
COMMENTS
The first of these partitions that is not double-free (see A323092 for definition) is (4,3,2).
LINKS
EXAMPLE
The a(1) = 1 through a(7) = 10 partitions:
(1) (2) (3) (4) (5) (6) (7)
(11) (111) (22) (32) (33) (43)
(31) (41) (51) (52)
(1111) (311) (222) (61)
(11111) (411) (322)
(3111) (331)
(111111) (511)
(4111)
(31111)
(1111111)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], FreeQ[Divide@@@Partition[#, 2, 1], 2]&]], {n, 0, 15}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 18 2022
STATUS
approved