cp's OEIS Frontend

A336118 a(n) = A335904(n) - A087436(n).

%I A336118 #9 Jul 09 2020 22:39:59
%S A336118 0,0,0,0,1,0,1,0,0,1,3,0,3,1,1,0,2,0,4,1,1,3,5,0,2,3,0,1,5,1,3,0,3,2,
%T A336118 2,0,7,4,3,1,5,1,7,3,1,5,7,0,2,2,2,3,7,0,4,1,4,5,9,1,7,3,1,0,4,3,8,2,
%U A336118 5,2,6,0,10,7,2,4,4,3,7,1,0,5,9,1,3,7,5,3,8,1,4,5,3,7,5,0,5,2,3,2,8,2,8,3,2
%N A336118 a(n) = A335904(n) - A087436(n).
%C A336118 Totally additive because both A087436 and A335904 are.
%H A336118 Antti Karttunen, <a href="/A336118/b336118.txt">Table of n, a(n) for n = 1..65537</a>
%F A336118 a(n) = A335904(n) - A087436(n).
%F A336118 a(n) = A335904(A335915(n)).
%o A336118 (PARI)
%o A336118 A335904(n) = { my(f=factor(n)); sum(k=1,#f~,if(2==f[k,1],0,f[k,2]*(1+A335904(f[k,1]-1)+A335904(f[k,1]+1)))); };
%o A336118 A087436(n) = (bigomega(n>>valuation(n,2)));
%o A336118 A336118(n) = (A335904(n)-A087436(n));
%Y A336118 Cf. A087436, A335904, A335915.
%K A336118 nonn
%O A336118 1,11
%A A336118 _Antti Karttunen_, Jul 09 2020