var f:text;
    a:array[1..1000000] of longint;
    n,i,j:longint;
    s:int64;
begin
assign(f,'fractii.in');
reset(f);
read(f,n);
close(f);
for i:=2 to n do
    a[i]:=i-1;
for i:=1 to n div 2 do begin
    j:=2*i;
    while j<=n do begin
          a[j]:=a[j]-a[i];
          j:=j+1;
          end;
    end;
for i:=2 to n do
    s:=s+a[i];
s:=s*2+1;
assign(f,'fractii.out');
rewrite(f);
write(f,s);
close(f);
end.