perl -le'$==1,(1x$_)=~/^(1|11)*(?{$=++})^/,print$=for 0..20'