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,3

Links

Table of n, a(n) for n=1..73.

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 *)

Crossrefs

Cf. A011371, A037861.

Sequence in context: A036812 A039906 A056011 * A116966 A182187 A334652

Adjacent sequences: A117120 A117121 A117122 * A117124 A117125 A117126

Keyword

easy,nonn,base

Author

Robert G. Wilson v, Apr 19 2006

Status

approved