{program fractii;
var s,i,j,a,b,n,x,y,i1,k:longint;
     f1,f2:text;


{function prim(a,b:longint):longint;

begin
y:=0;
if a<b then
  k:=a
  else
  k:=b;
for i1:=1 to k do
  begin
   if (a mod i1=0) and (b mod i1=0) then
     y:=i1;
   end;
prim:=y;
end;



begin
assign(f1,'fractii.in'); reset(f1);
assign(f2,'fractii.out'); rewrite(f2);
s:=0;
read(f1,n);
for i:=1 to n do

  begin
  for j:=1 to n do
  begin
   x:=prim(i,j);
   if x=1 then
    s:=s+1;
    end;
  end;
write(f2,s);
close(f1);
close(f2);
end.         }
program fractii;
var s,i,j,a,b,n,x,y,i1,k:longint;
     f1,f2:text;
begin
assign(f1,'fractii.in'); reset(f1);
assign(f2,'fractii.out'); rewrite(f2);
s:=0;
read(f1,n);
for i:=1 to n do
  begin
  for j:=1 to n do
     begin
       for i1:=1 to i do
        begin
          if (i mod i1=0) and (j mod i1=0) then
         y:=i1;
        end;
     if y=1 then
    s:=s+1;
    end;
    end;
write(f2,s);
close(f1);
close(f2);
end.