$n%$_ or@h{$n/$_.$_,$_.$n/$_}=0for 1..sqrt($n=<>);print~~keys%h