const x=2000003;

var f,g:text;
    n,k,t:longint;

function comb(n,k:longint):longint;
var v:array[0..5010]of longint;
    i,j,c1,c2:longint;
begin
  v[0]:=1;
  v[1]:=1;
  for i:=2 to k do
    begin
      c1:=1;
      for j:=1 to i-1 do
        begin
          c2:=v[j];
          v[j]:=((c1 mod x)+v[j])mod x;
          c1:=c2;
        end;
      v[i]:=1;
    end;
  for i:=k+1 to n do
    begin
      c1:=1;
      for j:=1 to k do
        begin
          c2:=v[j];
          v[j]:=((c1 mod x)+v[j])mod x;
          c1:=c2;
        end;
    end;
  comb:=v[k];
end;



begin
assign(f,'sandokan.in');
assign(g,'sandokan.out');
reset(f);
rewrite(g);
read(f,n,k);
t:=n mod (k-1);
if (t=0)then t:=k-1;
write(g,comb(n-1,t-1));
close(f);
close(g);
end.