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