/FIGHT - Ngôi làng thượng võ

              Uses Crt;
        Var n,k,g:longint;
        Begin
            readln(n,k);
            if n=2 then writeln(1)
            else
            if n>2 then
             begin
                 while k<>0 do
                  begin
                      g:=g+(n div k)*(n-n div k);
                      n:=n-(n div k);
                      k:=k-1;
                  end;
                  writeln(g);
             end;
            readln;
        End.