cp's OEIS Frontend

A328108 Binary weight of A327976.

%I A328108 #10 Oct 05 2019 18:21:47
%S A328108 2,4,3,6,5,12,7,11,9,13,7,12,13,20,15,23,16,19,22,25,20,28,19,30,29,
%T A328108 39,27,29,32,37,32,37,29,38,37,38,36,44,47,44,42,46,42,53,41,49,53,47,
%U A328108 45,58,52,55,56,65,66,60,67,56,61,64,63,77,59,66,60,67,72,72,64,84,57,81,63,79,67,92,77,77,74,80,81,88,77
%N A328108 Binary weight of A327976.
%H A328108 Antti Karttunen, <a href="/A328108/b328108.txt">Table of n, a(n) for n = 1..16384</a>
%H A328108 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%H A328108 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%F A328108 a(n) = A000120(A327976(n)).
%F A328108 a(n) = A000120(A110240(n) XOR 2*A265281(n-1)).
%F A328108 a(n) = A000120(A110240(n) XOR 2*A030101(A110240(n-1))).
%o A328108 (PARI)
%o A328108 A269160(n) = bitxor(n, bitor(2*n, 4*n)); \\ From A269160.
%o A328108 A110240(n) = if(!n,1,A269160(A110240(n-1)));
%o A328108 A030101(n) = if(n<1,0,subst(Polrev(binary(n)),x,2));
%o A328108 A328108(n) = hammingweight(bitxor(A110240(n), 2*A030101(A110240(n-1))));
%o A328108 \\ Use this one for writing b-files:
%o A328108 A328108write(up_to) = { my(s=1, t, n=0); for(n=1,up_to, t = A269160(s); write("b328108.txt", n, " ", hammingweight(bitxor(2*A030101(s), t))); s = t); };
%Y A328108 Cf. A000120, A030101, A110240, A265281, A269160, A327976.
%Y A328108 Cf. also A070952, A328105, A328106, A328107, A328109.
%K A328108 nonn
%O A328108 1,1
%A A328108 _Antti Karttunen_, Oct 05 2019