Select Code to Download

#!perl -p
$_ x=(1x$_)!~/^(|.|(..+)\2+)$/

$ seq -50 50 | perl prime.pl
2
3
...
41
43
47