program fractii;
var i,min,d,j,n,q,x:longint;
    f,g:text;
begin
assign(f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
read (f,n);
for i:=2 to n do
for j:=2 to i-1 do
begin
d:=1;
min:=i;
if j<min then min:=j;
q:=0;
repeat
d:=d+1;
if (i mod d=0) then if (j mod d=0) then
   begin
   x:=x+1;
   q:=1;
   end;
until ((q=1) or (d=min));
end;
n:=n*n-2*x-n+1;
write (g,n);
close (f);
close (g)
end.