|
%I #4 Jun 07 2021 06:50:45
%S 0,0,0,2,0,10,0,9,2,14,0,64,0,18,16,28,0,63,0,120,20,26,0,220,2,30,12,
%T 192,0,620,0,75,28,38,24,310,0,42,32,442,0,984,0,384,156,50,0,616,2,
%U 117,40,504,0,270,32,736,44,62,0,2944,0,66,238,186,36,1952,0,792,52,1652,0,975,0,78,154,960,36,2556,0,1276,52
%N a(n) = A342001(n) * A051709(n).
%F a(n) = A342001(n) * A051709(n).
%F a(n) = A345049(n) + A345050(n).
%o (PARI)
%o A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A003557(n) = (n/factorback(factorint(n)[, 1]));
%o A342001(n) = (A003415(n) / A003557(n));
%o A051709(n) = ((sigma(n) + eulerphi(n)) - (2*n));
%o A345048(n) = (A342001(n) * A051709(n));
%Y Cf. A345049, A345050, A345051.
%K nonn
%O 1,4
%A _Antti Karttunen_, Jun 06 2021
|
