|
%I #12 Aug 26 2021 16:07:42
%S 0,1,1,3,1,10,1,6,3,14,1,24,1,18,16,10,1,21,1,36,20,26,1,44,3,30,6,48,
%T 1,124,1,15,28,38,24,45,1,42,32,68,1,164,1,72,39,50,1,70,3,27,40,84,1,
%U 36,32,92,44,62,1,276,1,66,51,21,36,244,1,108,52,236,1,78,1,78,33,120,36,284,1,110,10,86,1,372,44
%N a(n) = A347130(n) / A003557(n), where A347130 is the Dirichlet convolution of the identity function with the arithmetic derivative of n.
%H Antti Karttunen, <a href="/A347129/b347129.txt">Table of n, a(n) for n = 1..10080</a>
%H Antti Karttunen, <a href="/A347129/a347129.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%F a(n) = A347130(n) / A003557(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 A347130(n) = sumdiv(n,d,d*A003415(n/d));
%o A347129(n) = (A347130(n) / A003557(n));
%Y Cf. A003415, A003557, A347126 [= a(A276086(n))], A347130.
%Y Cf. also A342001, A347127, A347128.
%K nonn
%O 1,4
%A _Antti Karttunen_, Aug 23 2021
|
