sub f{my($x,$n,$i)=@_;$n-1?${$_**$n>$x?last:$x%$_||f($x/$_,$n-1,$i),$i++for@d[$i..$#d]}:++$%}$_=<>;$X%$_ or$h{$_,$X/$_}=0for 2..sqrt($X=/ /+$');@d=sort{$a-$b}keys%h;f$X,$_;print$%