OFFSET
1,1
MATHEMATICA
Run the second Mathematica line of A091938, then Count[ IntegerDigits[ #, 2], 1] & /@ Table[ f[n], {n, 75}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 14 2004
EXTENSIONS
More terms from Robert G. Wilson v, Feb 20 2004
STATUS
approved