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