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

 begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(g,'fractii.out');
  rewrite(g);
  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(g,c);
  close(g);
 end.