perl -le '$_=1;(1x$_)!~/^(11+)\1+$/&&print while++$_'