var x,s,i,n,k:integer;
    f,g:text;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
close(f);
s:=1;
s:=n*2-1;
for i:=2 to n-1 do begin
    x:=i;
    k:=0;
    if i mod 2=1 then begin
                 inc(x);
                 while x<=n do begin
                       if x mod i<>0 then inc(k);
                       x:=x+1;
                 end;
                 k:=k*2;
                 s:=s+k;
                 k:=0;
    end;
    if i mod 2=0 then begin
                 inc(x);
                 while x<=n do begin
                       if x mod i<>0 then inc(k);
                       if ((x mod 3)mod 2=1)and(i mod 3=0) then dec(k);
                       if ((x mod 5)mod 2=1)and(i mod 5=0) then dec(k);
                       if ((x mod 7)mod 2=1)and(i mod 7=0) then dec(k);
                       if ((x mod 9)mod 2=1)and(i mod 9=0) then dec(k);
                       x:=x+2;
                 end;
                 k:=k*2;
                 s:=s+k;
                 k:=0;
    end;
end;
write(g,s); close(g);
end.