@_=(2..shift);while(@_){print$_[0].$/;@_=grep{$_%$_[0]}@_} [download]
In reply to Re: Prime number generator by Ieronim in thread Prime number generator by jimt