$n=<>; $r=$n; for$j(2..64){ $i=int$n**(1/$j); $k=$n-$i**$j; if($r>$i+$j+$k){ $r=$i+$j+$k; } } print$r;