import Data.Ratio

main = do
  (n:m:_) <- getLine >>= return . (map read) . words :: IO [Integer]

  let
    s = m*1900 + (n-m)*100
    a = s % (2^m - 1)
    b = (2^m - 1) % (2^m)

  print $ numerator ((a*b) / ((1-b)^2))
