var f,g:text;
    k,db,a,b,c:int64;
begin
 assign(f,'kfib.in');
 assign(g,'kfib.out');
 reset(f);
 rewrite(g);
 readln(f,k);

 if k>4 then
 begin
 a:=0;
 b:=1;
 c:=a+b;

 dB:=3;
 while db<=k do
  begin
   inc(dB);
   a:=b;
   b:=c;
   c:=(a+b) mod 666013;
  end;
 writeln(g,c);
 end
 else
 begin
       if k=1 then writeln(g,0);
       if k=2 then writeln(g,1);
       if k=3 then writeln(g,2);

       end;
 close(f);
 close(g);
end.