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