%I #9 Jul 08 2019 12:29:55
%S 0,0,1,7,7,2,5,12,10,14,9,10,15,10,11,21,19,20,17,18,17,18,21,16,26,
%T 30,31,26,31,22,29,38,37,38,39,45,39,34,35,32,43,34,41,42,43,42,45,58,
%U 50,52,55,50,55,62,51,48,61,62,57,48,63,58,57,71,69,74,65,66,65,78,69,68,75,78
%N a(n) = n XOR d(n) (cf. A000005).
%H Amiram Eldar, <a href="/A169812/b169812.txt">Table of n, a(n) for n = 1..10000</a>
%t a[n_] := BitXor[n, DivisorSigma[0, n]]; Array[a, 100] (* _Amiram Eldar_, Jul 08 2019 *)
%o (PARI) a(n)=bitxor(n, numdiv(n)); \\ _Michel Marcus_, Jul 08 2019
%Y Cf. A000005, A070883, A169810, A169811, A169813, A169814.
%K nonn
%O 1,4
%A _N. J. A. Sloane_, May 28 2010