A117123 n minus the number of 0's in binary expansion of n.

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, 26, 26, 28, 29, 31, 27, 29, 30, 32, 32, 34, 35, 37, 36, 38, 39, 41, 41, 43, 44, 46, 44, 46, 47, 49, 49, 51, 52, 54, 53, 55, 56, 58, 58, 60, 61, 63, 58, 60, 61, 63, 63, 65, 66, 68, 67, 69

Offset: 1

Author

Robert G. Wilson v, Apr 19 2006

Keywords

• easy
• nonn
• base

Crossrefs

Cf. A011371, A037861.

Programs

Mathematica

f[n_] := n - Count[IntegerDigits[n, 2], 0]; Array[f, 73]
Table[n-DigitCount[n,2,0],{n,80}] (* Harvey P. Dale, Dec 24 2015 *)