A328107 Binary weight of A327973.

2, 4, 5, 6, 7, 8, 9, 13, 11, 13, 13, 14, 17, 18, 19, 23, 20, 23, 24, 27, 26, 24, 23, 30, 31, 29, 29, 31, 36, 35, 36, 37, 35, 34, 35, 42, 40, 46, 41, 50, 54, 48, 52, 47, 47, 53, 47, 51, 51, 54, 48, 51, 60, 55, 56, 64, 61, 60, 59, 68, 71, 67, 65, 78, 64, 63, 68, 72, 70, 74, 79, 89, 85, 77, 85, 76, 79, 83, 78, 90, 97, 82, 87, 81

Offset: 1

Author

Antti Karttunen, Oct 05 2019

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Index entries for sequences related to binary expansion of n
• Index entries for sequences related to cellular automata

Crossrefs

Cf. A000120, A110240, A269160, A327973.

Cf. also A070952, A328105, A328106, A328108, A328109.

Programs

PARI

A269160(n) = bitxor(n, bitor(2*n, 4*n)); \\ From A269160.
A110240(n) = if(!n,1,A269160(A110240(n-1)));
A327973(n) = bitxor(A110240(n), 2*A110240(n-1));
A328107(n) = hammingweight(bitxor(A110240(n), 2*A110240(n-1)));
\\ Use this one for writing b-files:
A328107write(up_to) = { my(s=1, t, n=0); for(n=1,up_to, t = A269160(s); write("b328107.txt", n, " ", hammingweight(bitxor(2*s, t))); s = t); };

Formula

a(n) = A000120(A327973(n)) = A000120(A110240(n) XOR 2*A110240(n-1)).