OFFSET
1,9
FORMULA
Totally additive with a(prime(n)) = omega(n).
MATHEMATICA
Table[If[n==1, 0, Total@Cases[FactorInteger[n], {p_, k_}:>k*PrimeNu[PrimePi[p]]]], {n, 100}]
PROG
(PARI) a(n) = {my(f=factor(n)); sum(k=1, #f~, f[k, 2]*omega(primepi(f[k, 1]))); } \\ Michel Marcus, Jun 09 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 24 2018
STATUS
approved