var i,j,n,nr,aiux,ajux:longint;
    f,g:text;
begin
assign(f,'fractii.in');assign(g,'fractii.out');
reset(f);rewrite(g);
read(f,n);
close(f);
nr:=0;
for i:=1 to n do
for j:=1 to n do begin
aiux:=i;ajux:=j;
while(aiux<>ajux) do
if(aiux>ajux) then aiux:=aiux-ajux
else ajux:=ajux-aiux;
if(aiux=1) then nr:=nr+1;
end;
writeln(g,nr);
close(g);
end.