var n,i,k,j:longint;
x:array[1..1000000] of longint;
f,g:text;

FUNCTION cmd(m,q:integer):integer;
BEGIN
IF m=q THEN cmd:=m ELSE
IF m>q THEN cmd:=cmd(m-q,q)
ELSE cmd:=cmd(m,q-m)
ENd;

begin
assign(f,'fractii.in');
reset(f);
readln(f,n);
for i:=1 to n do x[i]:=i;
for i:=1 to n do begin
 for j:=1 to n do begin
if cmd(x[i],x[j])=1 then k:=k+1;

 end;
end;
close(f);
assign(g,'fractii.out');
rewrite(g);
writeln(g,k);
close(g);
end.