let solve w d =
  let rec inner w d =
    if d = 1 then w
    else
      let power = w / (d * d) in
      inner (w - power) (d - 1)
  in 
  print_int @@ inner w d

let _ = 
  let w = int_of_string @@ read_line() in
  let d = int_of_string @@ read_line() in
  solve w d