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