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