var a:array[1..1000000] of longint;
    i,j,k,n,s:longint;
    f,g:text;
function cmmdc(a,b:integer):integer;
  begin
    if a mod b=0 then cmmdc:=b else cmmdc:=cmmdc(b, a mod b);
  end;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
for i:=1 to n do
  a[i]:=i-1;

for i:=2 to n do
  begin
    j:=2*i;
    while j<=n do
      begin
        a[j]:=a[j]-a[i];
        j:=j+i;
      end;
  end;
for i:=1 to n do
  s:=s+a[i];
s:=2*s+1;
writeln(g,s);
close(f);close(g);
end.