var n,i,j,p,q,r,tu:longint;
begin
read(n);
for i:=1 to n do
    for j:=1 to n do
        begin
             p:=i;
             q:=j;
             r:=p mod q;
             while r<>0 do
                   begin
                        p:=q;
                        q:=r;
                        r:=p mod q;
                   end;
             if q=1 then inc(tu);
        end;
write(tu);
end.