var n,i,j,db:longint;
    f,g:text;
function lnko(a,b:integer):integer;
begin
     if b=0 then lnko:=a
            else lnko:=lnko(b,a mod b);
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.