A328108 Binary weight of A327976.

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, 39, 27, 29, 32, 37, 32, 37, 29, 38, 37, 38, 36, 44, 47, 44, 42, 46, 42, 53, 41, 49, 53, 47, 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

Offset

1,1

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

Formula

a(n) = A000120(A327976(n)).

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

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

Prog

(PARI)
A269160(n) = bitxor(n, bitor(2*n, 4*n)); \\ From A269160.
A110240(n) = if(!n, 1, A269160(A110240(n-1)));
A030101(n) = if(n<1, 0, subst(Polrev(binary(n)), x, 2));
A328108(n) = hammingweight(bitxor(A110240(n), 2*A030101(A110240(n-1))));
\\ Use this one for writing b-files:
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); };

Crossrefs

Cf. A000120, A030101, A110240, A265281, A269160, A327976.

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

Sequence in context: A193298 A168007 A359114 * A091850 A332450 A245454

Adjacent sequences: A328105 A328106 A328107 * A328109 A328110 A328111

Keyword

nonn

Author

Antti Karttunen, Oct 05 2019

Status

approved