A324829 - OEIS

%I #6 Mar 16 2019 21:46:08

%S 0,1,2,2,3,1,4,2,4,3,5,4,6,3,3,1,7,3,8,3,4,4,9,2,4,4,2,4,10,4,11,3,3,

%T 5,2,3,12,7,4,1,13,2,14,4,4,7,15,3,4,2,1,5,16,1,3,4,6,6,17,3,18,7,2,2,

%U 3,6,19,4,7,3,20,4,21,10,3,8,3,6,22,4,2,8,23,6,3,11,6,4,24,6,6,6,7,10,5,3,25,2,4,4,26,5,27,2,4

%N a(n) = A000120(A324712(n)); binary weight of Xor-Moebius transform of A323243.

%H Antti Karttunen, <a href="/A324829/b324829.txt">Table of n, a(n) for n = 1..10000</a> (based on Hans Havermann's factorization of A156552)

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>

%H <a href="/index/Pri#prime_indices">Index entries for sequences computed from indices in prime factorization</a>

%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>

%F a(n) = A000120(A324712(n)).

%F a(A000040(n)) = n.

%o (PARI)

%o A324712(n) = { my(v=0); fordiv(n, d, if(issquarefree(n/d), v=bitxor(v, A323243(d)))); (v); }; \\ Needs also code from A323243.

%o A324829(n) = hammingweight(A324712(n));

%Y Cf. A000120, A324712, A323243, A324828.

%K nonn

%O 1,3

%A _Antti Karttunen_, Mar 16 2019