module Main where

main :: IO ()
main = readLn >>= print . solve

solve :: Int -> Double
solve n = go 1 0
  where
  go i acc = case 1.0 / i^n of
    x | x < 0.0000001 -> acc
      | otherwise     -> go (succ i) $ acc + x