%I #7 Aug 27 2018 08:13:58
%S 0,0,0,0,0,0,0,0,0,2,0,-2,0,3,2,0,0,1,0,2,3,7,0,-8,2,9,3,4,0,2,0,0,7,
%T 14,5,-10,0,15,9,-2,0,9,0,12,7,18,0,-22,3,18,14,16,0,6,9,1,15,24,0,
%U -24,0,25,13,0,11,26,0,26,18,25,0,-45,0,33,20,28,10,32,0,-14,13,37,0,-15,16,38,24,13,0,-8,12,34,25,41,17,-52,0
%N a(n) = Sum_{d|n, d<n} A294898(d), where A294898(d) = A005187(d) - sigma(d).
%H Antti Karttunen, <a href="/A318447/b318447.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = Sum_{d|n, d<n} A294898(d).
%F a(n) = A318448(n) - A294898(n).
%F a(n) = A318445(n) - A211779(n).
%F a(n) = A296074(n) - A292257(n).
%o (PARI)
%o A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
%o A294898(n) = (A005187(n) - sigma(n));
%o A318447(n) = sumdiv(n,d,(d<n)*A294898(d));
%Y Cf. A000203, A005187, A211779, A292257, A294898, A296074, A318445, A318448.
%K sign
%O 1,10
%A _Antti Karttunen_, Aug 27 2018
|