program fractii;
   var  n,p,q,i,l,d,r:longint;f,g:text;
   begin
   assign(f,'fractii.in');reset(f);
   assign(g,'fractii.out');rewrite(g);
   readln(f,n);
   for p:=1 to n do begin
   q:=0;
   for q:=1 to n do begin
   if p>q then begin d:=p;i:=q;end else begin d:=q;i:=p;end;
   r:=d mod i;
   while r<>0 do begin
   d:=i;
   i:=r;
   r:=d mod i;end;
   if i=1 then inc(l);
   end;
   end;
   write(g,l);
   close(f);
   close(g);
   end.