Program Fractii;
Var
  f,g:Text;
  i,j,n,k:Longint;
Begin
  k:=0;
  Assign(f,'fractii.in');Reset(f);
  Assign(g,'fractii.out');Rewrite(g);
  Readln(f,n);
  k:=2*n-1;
  For i:=2 To n Do
    For j:=2 To n Do
      If(i<>j) And (i>j) And (i Mod j<>0)
        Then k:=k+1;
  For i:=2 To n Do
    For j:=2 To n Do
      If(i<>j) And (j>i) And (j Mod i<>0)
        Then k:=k+1;
  Writeln(g,k);
  Close(f);Close(g);
End.