OFFSET
0,3
LINKS
FORMULA
PROG
(PARI) A328846(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]*fibonacci(2+primepi(f[i, 1]))/f[i, 1]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 28 2019
STATUS
approved