$_=$=-(shift)**$[;print

##</code><code>##

$o=1;{++$o&&grep{$o/$_==int$o/$_}keys%_ or$_{$o}=print$o.$/;redo}

##</code><code>##

$o=1;{++$o&&grep$o/$_==int$o/$_,keys%_ or$_{$o}=print$o.$/;redo}