Select Code to Download

$o=1;{$_{$o}=print$o.$/if++$o&&!grep!($o%$_),keys%_;redo}

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