program fracti;
var n,k,s,i:integer;
f,g:text;
Function flip(a,b:integer):integer;
begin
While a<>b do
begin
If a>b then
a:=a-b
else
b:=b-a;
end;
flip:=a;
end;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
s:=0;
If (n>=1) and (n<=1000000) then
For i:=1 to n do begin
For k:=1 to n do
If flip(i,k)=1 then
s:=s+1;
end;
writeln(g,s);
close(f);close(g);
end.