OFFSET
1,6
REFERENCES
See A003415.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
dn[0]=0; dn[1]=0; dn[n_]:=Module[{f=Transpose[FactorInteger[n]]}, If[PrimeQ[n], 1, Plus@@(n*f[[2]]/f[[1]])]]; Table[dn[DivisorSigma[0, n]], {n, 150}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 12 2004
STATUS
approved