var
n,s,m,i:integer;
f,g:text;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
s:=n;
for i:=2 to n do begin
        m:=n;
                 while m<>0 do
                 begin
                 if (i mod m<>0) or (m mod i<>0) then s:=s+1;
                 m:=m-1;
                 end;
        end;
write(g,s);
close(f);close(g);
writeln(s);
end.