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

##</code><code>##

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