1,3

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

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

Cf. A011371, A037861.

Sequence in context: A036812 A039906 A056011 * A116966 A182187 A334652

Adjacent sequences: A117120 A117121 A117122 * A117124 A117125 A117126

easy,nonn,base

Robert G. Wilson v, Apr 19 2006

approved