perl -le '(1 x $_++) =~ /^(1(??{1x$-[1]}))*$/ && print while 1'