Обнаружил на Википедии скрипт-однострочник для печати простых чисел:

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

Абалдеть :)