program fractii;
var a,i,d,j,n,b,r,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 n do
begin
d:=1;
repeat
d:=d+1;
if ((i mod d) =0) and ((j mod d)=0) then
   begin
   x:=x+1;
   d:=i;
   end;
until d=i;
end;
n:=n*n-x;
write (g,n);
close (f);
close (g)
end.