var n,i,j,s:longint;
    f,g:text;
function cmmdc(a,b:longint):longint;
begin
  if(a=b)then begin
                cmmdc:=a;
              end
         else if(a<b)then cmmdc:=cmmdc(a,b-a)
                     else if(a>b)then cmmdc:=cmmdc(a-b,b);
end;
begin
  assign(f,'fractii.in');
  assign(g,'fractii.out');
  reset(f);
  rewrite(g);
  read(f,n);
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if cmmdc(i,j)=1 then inc(s);
    end;
  writeln;
  write(g,s);
  close(f);
  close(g);
end.