OFFSET
1,2
FORMULA
MATHEMATICA
Table[DivisorSum[n, (Times @@ PartitionsP[Last /@ FactorInteger[n/#]]) (Times @@ PartitionsQ[Last /@ FactorInteger[#]]) &], {n, 1, 80}]
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Ilya Gutkovskiy, Oct 26 2019
STATUS
approved