#!perl -l
(1 .1x$_)=~/^(11)?(?!(11+)\2+$)/&&print for 1..252