program fractii;
var f:text;n,i,j,count:longint;
function lnko(a,b:longint):longint;
var r:longint;
begin
        repeat
                r:=a mod b;
                a:=b;
                b:=r;
        until r=0;
        lnko:=a;
end;
begin
        assign(f,'fractii.in');
        reset(f);
        readln(f,n);
        close(f);
        for i:=1 to n do
                for j:=1 to n do
                        if lnko(i,j)=1 then count:=count+1;
        assign(f,'fractii.out');
        rewrite(f);
        writeln(f,count);
        close(f);
end.