for$k(@m=2..1e3){push@_,$k**$_ for@m}$_-$c&&$_<2e5&&print$c=$_,"\n"for sort{$a<=>$b}@_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page