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,4

Links

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

Formula

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

a(A137674(n)) = 1.

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

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 *)

Crossrefs

Cf. A000120, A137671, A137674.

Sequence in context: A296977 A025878 A143421 * A141272 A380560 A281527

Adjacent sequences: A137669 A137670 A137671 * A137673 A137674 A137675

Keyword

nonn,base

Author

Reinhard Zumkeller, Feb 05 2008

Status

approved