%I #4 Dec 24 2015 22:42:00
%S 1,1,3,2,4,5,7,5,7,8,10,10,12,13,15,12,14,15,17,17,19,20,22,21,23,24,
%T 26,26,28,29,31,27,29,30,32,32,34,35,37,36,38,39,41,41,43,44,46,44,46,
%U 47,49,49,51,52,54,53,55,56,58,58,60,61,63,58,60,61,63,63,65,66,68,67,69
%N n minus the number of 0's in binary expansion of n.
%t f[n_] := n - Count[IntegerDigits[n, 2], 0]; Array[f, 73]
%t Table[n-DigitCount[n,2,0],{n,80}] (* _Harvey P. Dale_, Dec 24 2015 *)
%Y Cf. A011371, A037861.
%K easy,nonn,base
%O 1,3
%A _Robert G. Wilson v_, Apr 19 2006