$x=<>;
for$i(2..10000){$a+=$i**-($x-1)/($i-1)}
print int $a*1e6;