program fractii;
var n, k, p, q,c,a,b:longint;
    g,f:text;
begin
assign(g,'fractii.in');
assign(f,'fractii.out');
reset(g);
rewrite(f);
read(g,n);
k:=0;
for p:=1 to n do
begin
        for q:=1 to n do
        begin
        a:=p;
        b:=q;
        if a<b then
        begin
        c:=a;
        a:=b;
        b:=c;
        end;
        repeat
        c:=a mod b;
        a:=b;
        b:=c;
        until b=0;
        if a=1 then k:=k+1;
        end;
end;
write(f,k);
close(f);
close(g);
end.