Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #12 Feb 28 2019 18:53:19
%S 0,1,3,1,7,1,5,11,15,1,9,19,11,23,25,13,31,1,17,35,19,39,41,21,23,47,
%T 49,25,53,27,7,57,63,1,33,67,35,71,73,37,39,79,81,41,85,43,11,89,47,
%U 95,97,49,101,51,13,105,109,55,7,113,29,117,119,15,127,1,65,131,67,135,137,69,71,143,145,73,149,75,19
%N a(0) = 0; for n > 0, a(n) = A000265(A005187(n)).
%H Antti Karttunen, <a href="/A324377/b324377.txt">Table of n, a(n) for n = 0..16385</a>
%H Antti Karttunen, <a href="/A324377/a324377.txt">Data supplement: n, a(n) computed for n = 0..65537</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(0) = 0; for n > 0, a(n) = A000265(A005187(n)) = A005187(n) / 2^A324379(n).
%F a(n) = A322821(A283477(n)).
%o (PARI)
%o A000265(n) = (n/2^valuation(n, 2));
%o A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
%o A324377(n) = if(!n,n,A000265(A005187(n)));
%Y Cf. A000265, A005187, A283477, A322821, A324287, A324378, A324379.
%K nonn
%O 0,3
%A _Antti Karttunen_, Feb 28 2019