%I #6 Mar 31 2017 00:40:20
%S 0,1,2,2,4,5,4,3,8,9,10,10,8,9,6,4,16,17,18,18,20,21,20,11,16,17,18,
%T 18,12,13,8,5,32,33,34,34,36,37,36,19,40,41,42,42,40,41,22,20,32,33,
%U 34,34,36,37,36,19,24,25,26,26,16,17,10,6,64,65,66,66,68,69,68,35,72,73,74,74
%N In binary representation of n: replace all blocks of k contiguous ones with binary representation of k.
%C a(n) <= n:
%C a(A003714(n)) = A003714(n); a(A004780(n)) < A004780(n);
%C A090077(n) <= a(n).
%H R. Zumkeller, <a href="/A179821/b179821.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(2*n) = 2*a(n); a(4*n+1) = 4*a(n)+1.
%e n=45->101101->[1]0[11]0[1]->[1]0[2]0[1]->[1]0[10]0[1]->101001->a(45)=41.
%Y Cf. A038374, A069010, A000120, A000225, A007088.
%K base,nonn
%O 0,3
%A _Reinhard Zumkeller_, Jul 31 2010