var n,i,j:longint;
    f,g:text;
    nr:integer;
function cmmdc(x,y:longint):longint;
begin
while y<>0 do
      begin
      if x>y then x:=x-y
             else y:=y-x;
      end;
cmmdc:=x;
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
        begin
        if cmmdc(i,j)=1 then inc(nr);
        end;
write(g,nr);
close(F);close(g);
end.