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