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