OFFSET
1,24
EXAMPLE
The a(72) = 9 factorizations: (2*2*2*3*3), (2*2*2*9), (2*2*3*6), (2*2*18), (2*3*12), (2*4*9), (2*6*6), (3*3*8), (3*4*6).
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], Mean[#]!=Median[#]&]], {n, 100}]
CROSSREFS
A001055 counts factorizations.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 24 2023
STATUS
approved