perl -le'$==1,(1x$_)=~/(^)(1|11\1)*(?{$=++})^/,print$=for 0..20' [download]
In reply to Explain one liner for fibonacci by suhailck