map{//;($a)=grep$'%$_<1,@A;(log($')/log$a)=~/\./||print"$_
"}@A=2..999