OFFSET
1,6
EXAMPLE
The a(216) = 8 factorizations:
(2*3)*(2*3*6) (2*6)*(3*6)
(2)*(2*3)*(3*6) (6)*(2*3*6)
(2)*(3)*(2*3*6) (2)*(6)*(3*6)
(3)*(2*3)*(2*6) (3)*(6)*(2*6)
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Length[Join@@Table[Tuples[Select[facs[#], And[UnsameQ@@#, And@@SquareFreeQ/@#]&]&/@fac], {fac, Select[facs[n], UnsameQ@@#&]}]], {n, 60}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 01 2019
STATUS
approved