A280700 Binary weight of terms of A005187: a(n) = A000120(A005187(n)).

0, 1, 2, 1, 3, 1, 2, 3, 4, 1, 2, 3, 3, 4, 3, 3, 5, 1, 2, 3, 3, 4, 3, 3, 4, 5, 3, 3, 4, 4, 3, 4, 6, 1, 2, 3, 3, 4, 3, 3, 4, 5, 3, 3, 4, 4, 3, 4, 5, 6, 3, 3, 4, 4, 3, 4, 5, 5, 3, 4, 4, 5, 6, 4, 7, 1, 2, 3, 3, 4, 3, 3, 4, 5, 3, 3, 4, 4, 3, 4, 5, 6, 3, 3, 4, 4, 3, 4, 5, 5, 3, 4, 4, 5, 6, 4, 6, 7, 3, 3, 4, 4, 3, 4, 5, 5, 3, 4, 4, 5, 6, 4, 6, 6, 3, 4, 4, 5, 6, 4, 5

Offset: 0

Author

Antti Karttunen, Mar 16 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..8191

Crossrefs

Cf. A000120, A001221, A001222, A005187, A279357, A280705, A283475.

Programs

Mathematica

Table[DigitCount[2 n - DigitCount[2 n, 2, 1], 2, 1], {n, 0, 120}] (* Michael De Vlieger, Mar 18 2017 *)

PARI

b(n) = if(n<1, 0, b(n\2) + n%2);
for(n=0, 150, print1(b(2*n - b(2*n)), ", ")) \\ Indranil Ghosh, Mar 21 2017

Python

def A(n): return bin(2*n - bin(2*n)[2:].count("1"))[2:].count("1")
print([A(n) for n in range(151)]) # Indranil Ghosh, Mar 21 2017

Scheme

(define (A280700 n) (A000120 (A005187 n)))

Formula

a(n) = A000120(A005187(n)).

a(n) = A001221(A283475(n)) = A001222(A283475(n)) = A001222(A280705(n)).