var n,i,j,p,q,r,tu: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
        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(f2,tu);
close(f1);
close(f2);
end.