import Control.Applicative ((<$>), (<*>))

main :: IO ()
main = do
  solve <$> getl read <*> getl read >>= print

solve :: Int -> Int -> Int
solve w d = if d == 1 then w else solve (w - w `div` (d * d)) (d - 1)

getl :: (String -> a) -> IO a
getl f = f <$> getLine