program problema1;
 var n,nr,p,q:longint;
     f,g:text;

  function cmmdc(a,b:longint):longint;
     begin
       if a=b then
                cmmdc:=a
              else
                if a>b then
                         cmmdc:=cmmdc(a-b,b)
                        else
                          cmmdc:=cmmdc(a,b-a)
     end;
 begin
   assign(f,'fractii.in');
   assign(g,'fractii.out');
   reset(f);
   rewrite(g);
        read(f,n);
        nr:=0;
   for p:=1 to n do
      for q:=1 to n do
         if cmmdc(p,q)=p*q then
                            nr:=nr+1;

   write(g,nr);
   close(f);
   close(g);
   readln;
   end.