var k,b,n,i,j,n1,n2,cmm:longint;
a:array[1..1000000] of longint;
f,g:text;
begin
k:=0;
b:=0;
assign(f,'fractii.in');
reset(f);
readln(f,n);
close(f);
for i:=1 to n do begin
a[i]:=i;
end;
for i:=1 to n do begin
for j:=1 to n do begin
n1:=a[i];
n2:=a[j];
while n1<>n2 do if n1>n2 then n1:=n1-n2
else n2:=n2-n1;
cmm:=n1;
if cmm = 1 then k:=k+1;
b:=b+1;
end;
end;
assign(g,'fractii.out');
rewrite(g);
writeln(g,k);
close(g);
end.