OFFSET
0,9
COMMENTS
These are non-strict partitions such that it is possible to choose a different divisor of each part.
EXAMPLE
The a(4) = 1 through a(13) = 9 partitions:
(22) . (33) (322) (44) (441) (55) (443) (66) (544)
(332) (522) (433) (533) (444) (553)
(422) (442) (722) (552) (661)
(622) (4322) (633) (733)
(822) (922)
(4332) (4432)
(4431) (5332)
(5322) (5422)
(6322)
MATHEMATICA
Table[Length[Select[IntegerPartitions[n], !UnsameQ@@# && Length[Select[Tuples[Divisors/@#], UnsameQ@@#&]]>0&]], {n, 0, 30}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Mar 04 2024
STATUS
approved