import Text.Printf

solve x 2000000 = 0
solve x n = - (1.0 / n^2) + (1.0 / (x+n)^2) + solve x (n+1)

main = do
  x <- readLn :: IO Double
  printf "%10f\n" $ pi * pi / 6.0 + solve x 1