OFFSET
1,3
COMMENTS
The reciprocal sum of (y_1, ..., y_k) is 1/y_1 + ... + 1/y_k. The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
LINKS
FORMULA
If n = Product prime(x_i)^y_i is the prime factorization of n, then a(n) is the denominator of Sum y_i/x_i.
MATHEMATICA
Table[Sum[pr[[2]]/PrimePi[pr[[1]]], {pr, If[n==1, {}, FactorInteger[n]]}], {n, 100}]//Denominator
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Gus Wiseman, Aug 29 2018
STATUS
approved