var fi,fo:text;
    m,n,k,rez,rez2,i:int64;
begin
  assign(fi,'sandokan.in'); reset(fi);
  assign(fo,'sandokan.out'); rewrite(fo);
  read(fi,n,k);
  m:=n;
  while m-k>=0 do
    begin
      m:=m-k;
      m:=m+1;
    end;
  dec(m); dec(n);
  rez:=1;
  i:=n-m+1;
  while i<=n do
   begin
    rez:=rez*i mod 2000003;
    inc(i);
   end;
  rez2:=1;
  i:=1;
  while i<=m do
   begin
    rez2:=rez2 * i mod 2000003;
    inc(i);
   end;
  rez:=rez div rez2 mod 2000003;
  writeln(fo,rez mod 2000003);
  close(fi);
  close(fo);
end.