var f,g:text;
    n:word;i,j,k:longint;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
k:=0;
for i:= 1 to n do begin
    inc(k);
    for j:= 2 to n do
        if (j<>i) then if i = 1 then inc(k)
                   else if (i mod j <> 0) and (j mod i <> 0) then inc(k);

end;
write(g,k);
close(f);close(g);
end.