Program Fractii;
   uses crt;
  Var n, i, j, k, l: longint;
      F, G : text;
      t:boolean;
 Procedure Reduc(m,p:longint);
  Begin
   l:=2;   t:=true;
     While T and (l<=j)  do
       If (m mod l=0) and (p mod l=0) then
                                         t:=FALSE
                                      else
                                         l:=l+1;
  End;
Begin
     Assign(G,'fractii.in');
     Reset(g);
     Readln(G, n);
   Close(G);
   k:=0;
  For i:=1 to n do
   begin
    for j:=1 to n do
    Begin
      Reduc(i,j);
       if T=true then
             k:=k+1;
    End;
   end;
   Assign(F,'fractii.out');
   Rewrite(F);
     Write(F,k);
   close(F);
  readln;
End.