OFFSET
0,2
COMMENTS
MATHEMATICA
i = 1; Table[While[Total[Flatten[Position[Rest[Reverse[IntegerDigits[i, 2]]], 1]]] != k, i++]; i, {k, 0, 52}] (* Jayanta Basu, Aug 12 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 17 2003
EXTENSIONS
"Positive" added to definition by N. J. A. Sloane, Aug 25 2019
STATUS
approved