login
A328105
Binary weight of A328104: a(n) = A000120(A110240(n) OR 2*A110240(n)).
6
2, 4, 5, 8, 7, 12, 9, 15, 11, 17, 17, 20, 19, 26, 21, 29, 22, 27, 30, 33, 30, 34, 37, 40, 37, 39, 41, 49, 44, 49, 48, 53, 41, 56, 49, 64, 50, 62, 59, 66, 64, 60, 66, 69, 61, 77, 65, 73, 67, 74, 70, 89, 78, 87, 78, 94, 85, 88, 89, 100, 91, 101, 95, 110, 92, 85, 98, 102, 102, 102, 115, 109, 101, 105, 121, 118, 121, 129
OFFSET
0,1
FORMULA
For all n >= 0, A070952(a) < a(n) <= 2*A070952(n).
PROG
(PARI)
A269160(n) = bitxor(n, bitor(2*n, 4*n));
A110240(n) = if(!n, 1, A269160(A110240(n-1)));
A163617(n) = bitor(n, n<<1);
A328105(n) = hammingweight(A163617(A110240(n)));
\\ Use this one for writing b-files:
A328105write(up_to) = { my(s=1, n=0); for(n=0, up_to, write("b328105.txt", n, " ", hammingweight(bitor(s, s<<1))); s = A269160(s)); };
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 05 2019
STATUS
approved