OFFSET
0,5
MATHEMATICA
Table[Sum[DigitCount[x].{0, 0, 0, 1, 0, 1, 0, 2, 1, 1}, {x, 0, m}], {m, 0, 88}] (* Zak Seidov, Jul 25 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Feb 27 2012
STATUS
approved