cp's OEIS Frontend

A345048 a(n) = A342001(n) * A051709(n).

%I A345048 #9 Jan 22 2025 11:40:26
%S A345048 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 A345048 192,0,620,0,75,28,38,24,310,0,42,32,442,0,984,0,384,156,50,0,616,2,
%U A345048 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 A345048 a(n) = A342001(n) * A051709(n).
%H A345048 Antti Karttunen, <a href="/A345048/b345048.txt">Table of n, a(n) for n = 1..20000</a>
%F A345048 a(n) = A342001(n) * A051709(n).
%F A345048 a(n) = A345049(n) + A345050(n).
%o A345048 (PARI)
%o A345048 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A345048 A003557(n) = (n/factorback(factorint(n)[, 1]));
%o A345048 A342001(n) = (A003415(n) / A003557(n));
%o A345048 A051709(n) = ((sigma(n) + eulerphi(n)) - (2*n));
%o A345048 A345048(n) = (A342001(n) * A051709(n));
%Y A345048 Cf. A345049, A345050, A345051.
%K A345048 nonn
%O A345048 1,4
%A A345048 _Antti Karttunen_, Jun 06 2021