%I #5 Aug 28 2018 15:59:55
%S 0,1,1,3,1,6,1,7,4,8,1,17,1,10,9,15,1,20,1,23,11,14,1,39,6,16,13,29,1,
%T 43,1,31,15,20,13,49,1,22,17,49,1,55,1,41,32,26,1,75,8,42,21,47,1,70,
%U 17,67,23,32,1,97,1,34,40,63,19,79,1,59,27,75,1,107,1,40,48,65,19,91,1,109,40,44,1,131,23,46,33,95,1,155,21
%N a(n) = SumXOR_{d|n} [moebius(n/d) > 0]*(sigma(d)-d).
%H Antti Karttunen, <a href="/A318501/b318501.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = A318502(n) XOR A318503(n).
%o (PARI) A318501(n) = { my(v=0); fordiv(n, d, if(1==moebius(n/d), v=bitxor(v, sigma(d)-d))); (v); };
%Y Cf. A003987, A008683, A318325, A318502, A318503.
%K nonn
%O 1,4
%A _Antti Karttunen_, Aug 28 2018