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