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