module Main where

import Control.Monad.State

type Work = Int
type Day = Int
type WorkState = (Work, Day)

solve :: State WorkState Work

solve = do
    (work, day) <- get
    let today = work `div` day ^ 2
    if day == 1 
        then return work
        else do
            put (work-today, day-1)
            solve

main :: IO()

main = do
    w <- read <$> getLine
    d <- read <$> getLine
    print $ fst $ runState solve (w,d)