main :: IO ()
main = do
    [n,k] <- map read . words <$> getLine :: IO [Double]
    print $ sum [
        let x = ceiling $ sqrt (k / i)
         in if i < k then (1 / n) * ((1 / 2)^x) else 1
        | i <- [1..n] ]
