login
A366254
Binary weight of May code (A303767).
3
0, 1, 2, 1, 2, 1, 2, 3, 4, 1, 2, 3, 2, 3, 2, 3, 4, 1, 2, 3, 2, 3, 2, 3, 4, 5, 2, 3, 4, 3, 4, 3, 4, 1, 2, 3, 2, 3, 2, 3, 4, 5, 2, 3, 4, 3, 4, 3, 4, 5, 2, 3, 4, 3, 4, 3, 4, 5, 6, 3, 4, 5, 4, 5, 6, 1, 2, 3, 2, 3, 2, 3, 4, 5, 2, 3, 4, 3, 4, 3, 4, 5, 2, 3, 4, 3, 4, 3, 4, 5, 6, 3, 4, 5, 4, 5, 4, 5, 2, 3, 4, 3, 4, 3, 4, 5
OFFSET
0,3
FORMULA
a(n) = A000120(A303767(n)).
a(n) = A001221(A303760(n)) = A001222(A303760(n)) = A001222(A366261(n)).
a(n) = A064547(A303771(n)).
PROG
(PARI)
A209229(n) = (n && !bitand(n, n-1));
A053644(n) = { my(k=1); while(k<=n, k<<=1); (k>>1); }; \\ From A053644
A303767(n) = if(!n, n, if(A209229(n), n+A303767(n-1), A053644(n)+A303767(n-A053644(n)-1)));
A366254(n) = hammingweight(A303767(n));
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 05 2023
STATUS
approved