OFFSET
0,3
LINKS
MAPLE
# uses wt() from A000120
t1:=[0]; a:=1; l:=1;
for i from 1 to 1000000 do
a:=a+wt(a);
if a >= 2^l then l:=l+1; t1:=[op(t1), i]; fi;
od:
t1;
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick Devlin and N. J. A. Sloane, Sep 27 2013
EXTENSIONS
a(24)-a(36) from Donovan Johnson, Sep 27 2013
STATUS
approved