A348367 - OEIS

A348367

a(n) = w(n + w(n)), where w(n) is the binary weight of n, A000120(n).

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..99.

FORMULA

a(n) = A000120(n + A000120(n)); a(n) = A000120(A092391(n)).

EXAMPLE

n = 5; a(5) = A000120(5 + A000120(5)) = 3.

MATHEMATICA

h[n_] := DigitCount[n, 2, 1]; a[n_] := h[n + h[n]]; Array[a, 100] (* Amiram Eldar, Oct 15 2021 *)

PROG