安装ispcp看到的

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