Ivo Hrádek

Slovakia

http://hradecek.github.io

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