import Control.Monad.State

main :: IO ()
main = do
  w <- readLn
  d <- readLn
  let
    work = do
      (workLeft, daysLeft) <- get
      let yaruki = workLeft `div` daysLeft^2
      if daysLeft == 1
        then return workLeft
        else do
          put (workLeft - yaruki, daysLeft - 1)
          work
  print $ evalState work (w, d)