import strutils

proc input: string =
  while true: (let t = stdin.readChar; if t.isSpaceAscii: break else: result.safeAdd t)

let N, K = input().parseInt
echo N div (K + 1) + 1