var fi,fo:text;
    m,n,k,rez:int64;
    i:longint;
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;
  for i:=1 to n do
    rez:=rez*i;
  for i:=1 to m do
    rez:=rez div i;
  for i:=1 to n-m do
    rez:=rez div i;
  writeln(fo,rez mod 2000003);
  close(fi);
  close(fo);
end.