Select Code to Download

$o=1;{(grep!($o%$_),2..++$o/2)||print$o.$/;redo}

#!/usr/bin/perl -l
$o=1;{(grep!($o%$_),2..++$o/2)||print$o;redo}