var f:text;
    n,j,i,s,a,b,rest:longint;
    begin
assign(f, 'fractii.in');
reset(f);
read(f,n);
s:=n*n;
close(f);
for i:=2 to n do
begin
  for j:=1 to n do
   begin

    if j<>1 then
     begin
     if i>j then
      begin
       a:=i;
       b:=j;
      end
       else
      begin
      a:=j;
      b:=i;
      end;
      rest:=a mod b;
      while rest<>0 do
       begin
       a:=b;
       b:=rest;
       rest:=a mod b;
       end;

      if b<>1 then
       s:=s-1;
    end;
   end;

end;
assign(f, 'fractii.out');
rewrite(f);
write(f,s);
close(f);
end.