dp :: Int -> Int -> Int
dp w d
  | d <= 1    = w
  | otherwise = dp (w - w `div` (d * d)) (d - 1)

main :: IO ()
main = do
  w <- readLn :: IO Int
  d <- readLn :: IO Int
  print $ dp w d