login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Binary weight of A109812(n).
6

%I #11 Apr 07 2022 10:39:42

%S 1,1,1,2,1,2,2,1,2,2,2,2,2,3,1,3,2,2,2,3,2,3,2,3,2,3,2,4,1,3,3,2,3,3,

%T 2,3,3,2,4,2,4,2,3,3,3,3,2,4,3,1,4,3,2,4,3,2,4,3,2,3,3,3,3,3,3,3,3,3,

%U 4,2,4,3,3,4,2,5,2,4,2,4,3,3,4,3,4,3,3,4,3,4,3,4,3,4,3,3,4,3,3,4,3,5,1,5,3

%N Binary weight of A109812(n).

%C Equivalently, binary weight of A352575.

%H Antti Karttunen, <a href="/A352884/b352884.txt">Table of n, a(n) for n = 1..100000</a>

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>

%F a(n) = A000120(A109812(n)) = A000120(A351965(n)).

%o (PARI)

%o v109812 = readvec("b109812_to10e5.txt"); \\ Prepared from b-file data with gawk ' { print $2 } '

%o up_to = #v109812;

%o A109812(n) = v109812[n];

%o A352884(n) = hammingweight(A109812(n));

%Y Cf. A000120, A109812, A351963, A351964, A351965, A352889.

%Y Cf. also A253589, A352791, A352574, A352575, A352576.

%K nonn,base

%O 1,4

%A _Antti Karttunen_, Apr 07 2022