OFFSET
1,2
COMMENTS
Terms are either odd or multiples of 4. - Antti Karttunen, Jul 31 2022
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..20000 (first 1000 terms from Bruno Berselli)
PROG
(Magma) Ad:=func<h | h*(&+[Factorisation(h)[i][2]/Factorisation(h)[i][1]: i in [1..#Factorisation(h)]])>; [Ad(2*n): n in [1..60]]; // Bruno Berselli, Oct 22 2013
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 26 2002
STATUS
approved