var f,g:text;
    a:array[1..1000000] of longint;
    nr:qword;
    n,p,x,i:longint;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
a[1]:=n;
for i:=2 to n do begin
 if a[i]=0 then a[i]:=n mod i;
 if a[i]<>0 then begin
  x:=n mod i;
  a[i]:=a[i]-(n-x-1);
 end;
 x:=i+i;
 while x<=n do begin
  if a[x]=0 then a[x]:=n mod i;
  if a[x]<>0 then begin
   p:=n mod i;
   a[x]:=a[x]-(n-p-1);
  end;
  inc(x,i);
 end;
end;
nr:=0;
for i:=1 to n do nr:=nr+a[i];
writeln(g,nr);
close(f);
close(g);
end.