OFFSET
1,2
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..10000
EXAMPLE
For the factorizations of 12 we have the following choices:
(2*2*3): {{1,1,1},{1,1,2},{1,1,3},{1,2,2},{1,2,3},{2,2,3}}
(2*6): {{1,1},{1,2},{1,3},{1,6},{2,2},{2,3},{2,6}}
(3*4): {{1,1},{1,2},{1,3},{1,4},{2,3},{3,4}}
(12): {{1},{2},{3},{4},{6},{12}}
So a(12) = 7.
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Max[Length[Union[Sort/@Tuples[Divisors/@#]]]&/@facs[n]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Mar 06 2024
STATUS
approved