OFFSET
1,7
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[DivisorSigma[0, n]-Total[Cases[FactorInteger[n], {p_, k_}:>PrimePi[p]*k]], {n, 100}]
PROG
(PARI)
A056239(n) = { my(f); if(1==n, 0, f=factor(n); sum(i=1, #f~, f[i, 2] * primepi(f[i, 1]))); }
CROSSREFS
AUTHOR
Gus Wiseman, May 23 2019
STATUS
approved