import Data.Ratio

main = getLine >>= print . solve . (map read :: [String] -> [Int]) . words

solve :: [Int] -> Double
solve [k, n] = fromRational
    $ toRational $ sum [ x % ((k + 1) * n) | x <- [0 .. k], y <- [1 .. n] ]