Help for this page

Select Code to Download


  1. or download this
    @_=(2..shift);while(@_){print$_[0].$/;@_=grep{$_%$_[0]}@_}