const
 nmax=1000000;
var
 f:array[1..nmax] of longint;
 n,i,j,s:longint;
begin
 assign(input,'fractii.in');reset(input);
 readln(n);
 close(input);
 s:=0;
 for i:=1 to n do f[i]:=i-1;
 for i:=2 to n do
  for j:=2 to n div i do begin
    dec(f[i*j],f[i]);
    dec(s,f[i]);
   end;
 assign(output,'fractii.out');rewrite(output);
 write(n*n-n+2*s+1);
 close(output);
end.