$k=<>;
print $k==0?atan2(-1,0)**2/6:do{$x+=1/$_ for 1..$k;$x/$k}