OFFSET
1,1
COMMENTS
For n > 20, a(n) > A369979(n).
LINKS
PROG
(PARI)
up_to = 15180;
A002110(n) = prod(i=1, n, prime(i));
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A370137list(up_to) = { my(v = vector(up_to), i=0); for(x=1, oo, for(y=1, x, for(z=1, y, i++; if(i > up_to, return(v)); v[i] = A002110(x)+A002110(y)+A002110(z)))); (v); };
v370137 = A370137list(up_to);
A370137(n) = v370137[n];
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 09 2024
STATUS
approved