OFFSET
1,32
COMMENTS
A multiset is condensed iff it is possible to choose a different divisor of each element.
EXAMPLE
The a(96) = 4 factorizations: (2*2*2*2*2*3), (2*2*2*2*6), (2*2*2*3*4), (2*2*2*12).
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join @@ Table[Map[Prepend[#, d]&, Select[facs[n/d], Min @@ #>=d&]], {d, Rest[Divisors[n]]}]];
Table[Length[Select[facs[n], Length[Select[Tuples[Divisors /@ #], UnsameQ@@#&]]==0&]], {n, 100}]
CROSSREFS
A000005 counts divisors.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 04 2024
STATUS
editing