program fractii1;
var a,b,r,n,c,i,j : longint;
    v:array[1..1000000] of longint;

 begin
  readln(n);
  c:=0;
  for i:=1 to n do
  begin;
   v[i]:=i;
  for j:=1 to n do
  begin
   v[j]:=j;
   a:=v[i];
   b:=v[j];
   repeat
   r:=a mod b;
   a:=b;
   b:=r;
   until r=0;
  if (a=1) then
  c:=c+1;
  end;
  end;
  writeln(c);
  readln;
 end.