var b,c,n,p,q,i,k,j:longint;
a:array[1..1000000] of longint;
f,g:text;
   function cmm(n1,n2:integer):integer;
begin
while n1<>n2 do if n1>n2 then n1:=n1-n2

else n2:=n2-n1;
cmm:=n1;
end;
begin
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
if cmm(a[i],a[j]) = 1 then k:=k+1;
b:=b+1;
end;
end;
assign(g,'fractii.out');
rewrite(g);
writeln(g,k);
close(g);
end.