A137672 Number of ones in binary representation of A137671(n).

1, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 3, 1, 1, 2, 2, 2, 3, 1, 2, 1, 3, 2, 2, 2, 3, 1, 2, 2, 3, 2, 3, 2, 4, 1, 3, 3, 1, 3, 2, 1, 4, 1, 1, 2, 2, 2, 3, 2, 2, 3, 3, 2, 3, 3, 3, 4, 2, 4, 1, 2, 2, 3, 1, 3, 2, 3, 2, 4, 2, 3, 3, 2, 4, 2, 4, 3, 3, 3, 4, 1, 2, 5, 1, 3, 2, 1, 3, 3, 3, 4, 2, 2, 2, 3, 3, 4, 2, 2, 3, 4, 3, 5, 1, 4

Offset: 1

Author

Reinhard Zumkeller, Feb 05 2008

Keywords

• nonn
• base

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000120, A137671, A137674.

Programs

Mathematica

b[1] = 1; b[n_] := b[n] = Count[Array[a, n-1], a[n-1]]; a[n_] := a[n] = DigitCount[b[n], 2, 1]; Array[a, 100] (* Amiram Eldar, Jul 27 2023 *)

Formula

a(n) = A000120(A137671(n)).

a(A137674(n)) = 1.

a(A137674(n)-1) = n-1.