program asdasdasdasd;
VAR f,g:text;
    c,p,q,aux1,aux2:integer;
    n:longint;
Begin
        Assign(f,'fractii.in');reset(f);
        Assign(g,'fractii.out');rewrite(g);
        readln(f,n);
        for p:=1 to n do begin
                q:=1;
                        while q<=n do begin
                                aux1:=p; aux2:=q;
                                while aux1<>aux2 do begin
                                        if aux1>aux2 then aux1:=aux1-aux2
                                                    else aux2:=aux2-aux1;
                                                    end;
                                if aux1=1 then inc(c);
                                inc(q);
                        end;
        end;
        writeln(g,c);
        Close(f);Close(g);
end.