in reply to Re^3: Prime number generator
in thread Prime number generator

And this is 54 :)
$o=1;{print$_[0+@_]=$o.$/if++$o,!grep!($o%$_),@_;redo}

     s;;Just-me-not-h-Ni-m-P-Ni-lm-I-ar-O-Ni;;tr?IerONim-?HAcker ?d;print

Replies are listed 'Best First'.
Re^5: Prime number generator
by liverpole (Monsignor) on Jul 17, 2006 at 20:47 UTC
    Amazing! ++

    Of course, you can even make it 52 with a minor change ...

    $o=1;{print$_[@_]=$o.$"if++$o,!grep!($o%$_),@_;redo}

    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/