OFFSET
1,4
COMMENTS
LINKS
EXAMPLE
The factorizations of 588 of this type are (7*7*12), (21*28), (588), so a(588) = 3.
The factorizations of 900 of this type are (5*5*6*6), (9*10*10), (25*36), (30*30), (900), so a(900) = 4.
MATHEMATICA
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
hwt[n_]:=Total[Cases[FactorInteger[n], {p_, k_}:>PrimePi[p]*k]];
Table[Max[Length/@Select[facs[n], SameQ@@hwt/@#&]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Apr 13 2024
STATUS
approved