#!perl -p s/$/ =/;for$p(2..21){($i=$_**(1/$p))!~/\./&&s/$/ $i^$p/}