main = do
	[w, d] <- getContents >>= return . map (read::String->Int) . lines
	print $ fst $ foldl (\(a,b) c -> ((a-(a`div`(b*b))),b-1)) (w,d) (reverse [1..d-1])