OFFSET
0,4
FORMULA
MAPLE
read("transforms") ;
MATHEMATICA
Clear[lst, n, s, f, i] f[n_]:=Plus@@IntegerDigits[n, 2]; i=1; s=1; lst={i}; Do[s+=n+i; If[s>=0, AppendTo[lst, f[s]]], {n, 0, 6!, 1}]; lst
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 11 2009
EXTENSIONS
Definition shortened, offset set to zero by R. J. Mathar, Oct 14 2009
STATUS
approved