var f,g:text;
    P,Q,N,a,b:longint;
    k:real;
 begin
  assign(f,'cmmdc.in');
  assign(g,'cmmdc.out');
   reset(f);
   rewrite(g);
    read (f,N);
    k:=0;
     for P:=1 to N do
      for Q:= 1 to N do 
       begin
       a:=P;
       b:=Q;
        while (a<>b) do
           if (a<b) then b:=b-a
                    else a:=a-b;
        if (a=1)and(b=1) then k:=k+1;
      end;  
    write (g,k:0:0);
    close(f);
    close(g);
     end.