cp's OEIS Frontend

A345059 a(n) = A129283(n) / gcd(sigma(n), A129283(n)), where A129283(n) is the sum of n and its arithmetic derivative.

%I A345059 #10 Jun 30 2021 10:34:16
%S A345059 1,1,1,8,1,11,1,4,15,17,1,1,1,23,23,48,1,1,1,22,31,35,1,17,35,41,27,
%T A345059 15,1,61,1,16,47,53,47,96,1,59,55,6,1,83,1,23,14,71,1,40,21,95,71,54,
%U A345059 1,9,71,37,79,89,1,19,1,95,57,256,83,127,1,10,95,43,1,76,1,113,65,39,95,149,1,128,189,125,1,13,107
%N A345059 a(n) = A129283(n) / gcd(sigma(n), A129283(n)), where A129283(n) is the sum of n and its arithmetic derivative.
%H A345059 Antti Karttunen, <a href="/A345059/b345059.txt">Table of n, a(n) for n = 1..12800</a>
%H A345059 Antti Karttunen, <a href="/A345059/a345059.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%H A345059 <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%F A345059 a(n) = A129283(n) / A343226(n) = A129283(n) / gcd(A000203, A129283(n)).
%o A345059 (PARI)
%o A345059 A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
%o A345059 A129283(n) = (n+A003415(n));
%o A345059 A345059(n) = { my(u=A129283(n)); (u/gcd(u,sigma(n))); };
%Y A345059 Cf. A000203, A003415, A129283, A211991, A343226, A343227.
%K A345059 nonn
%O A345059 1,4
%A A345059 _Antti Karttunen_, Jun 07 2021