|
%I #5 Aug 28 2018 15:59:50
%S 0,0,0,1,0,0,0,3,1,0,0,5,0,0,0,7,0,2,0,11,0,0,0,23,1,0,4,9,0,7,0,15,0,
%T 0,0,5,0,0,0,17,0,7,0,13,13,0,0,43,1,14,0,19,0,24,0,27,0,0,0,45,0,0,
%U 15,31,0,7,0,23,0,15,0,19,0,0,15,21,0,7,0,61,13,0,0,59,0,0,0,47,0,31,0,25,0,0,0,83,0,2,11,61,0,7,0,41,15
%N a(n) = SumXOR_{d|n} [moebius(n/d) < 0]*(sigma(d)-d).
%H Antti Karttunen, <a href="/A318502/b318502.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = A318501(n) XOR A318503(n).
%o (PARI) A318502(n) = { my(v=0); fordiv(n, d, if(-1==moebius(n/d), v=bitxor(v, sigma(d)-d))); (v); };
%Y Cf. A003987, A008683, A318326, A318501, A318503.
%K nonn
%O 1,8
%A _Antti Karttunen_, Aug 28 2018
|
