OFFSET
0,5
COMMENTS
For prime p, a(p^p) = p^p.
a(A157037(n)) = 0. - Reinhard Zumkeller, Feb 22 2009
REFERENCES
See A003415.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000 (first 2000 terms from T. D. Noe)
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[dn[dn[n]]], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Oct 12 2004
STATUS
approved