OFFSET
1,2
COMMENTS
MATHEMATICA
hwt[n_]:=Total[Cases[FactorInteger[n], {p_, k_}:>PrimePi[p]*k]];
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
Table[Sum[Length[Select[IntegerPartitions[n], Select[facs[Times@@Prime/@#], Length[#]==k&&SameQ@@hwt/@#&]!={}&]], {k, Divisors[n]}], {n, 1, 10}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Apr 20 2024
STATUS
approved