for$k(@m=2..1e3){push@_,$k**$_ for@m}$_-$c&&$_<2e5&&print$c=$_,"\n"for sort{$a<=>$b}@_