$n=<>;printf sort{$a-$b}map{$i%=$s=1;$s+=$s/int$i++/$_+1while$s<$n;$`*$_+$'*$i}<>=~$"..16