function ggt(a,b:integer):integer;
begin
       if a=0 then ggt:=b
                else ggt:=ggt(b mod a,a);

end;

var n,i,j,ct:longint;
    f1,f2:text;
begin

assign(f1,'fractii.in');
reset(f1);
assign(f2,'fractii.out');
rewrite(f2);

read(f1,n);
        for i:=1 to n do
                for j:=1 to n do
                if ggt(i,j)=1 then inc(ct);

write(f2,ct);
close(f1);
close(f2);
end.