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