open Printf
open Scanf

let id x = x

let n, k = scanf "%d %d" (fun n k -> n, k)

let cond v = v mod k = 0

let rec gcd m n =
  if m < n then gcd n m
  else if n = 0 then m
  else gcd n (m mod n)

let lcm m n = m * n / gcd m n

let rec step_loop st ed step f =
  if st <= ed then begin
    f st; step_loop (st + step) ed step f
  end else ()

let () =
  let count = ref 0 in
  for a = 1 to n do
    let m1 = a mod k in
    let m2 = (k - m1) mod k in
    if m1 = m2 then
      if m1 = 0 then begin
        count := !count + (n / k) * (n / k);
      end else begin
        let v = (n - m1) / k + 1 in
        count := !count + v * v
      end;
  done;
  printf "%d\n" !count
