var a,b,k,d,n:longint;
    f,g:text;
begin
     assign(f,'fractii.in');
     reset(f);
     read(f,n);
     close(f);

     assign(g,'fractii.out');
     rewrite(g);
     for a:=1 to n do
         for b:=1 to n do
             for d:=1 to a do
                 if (a mod d<>0) or (b mod d<>0) then inc(k);
     write(g,k);
     close(g);
end.