Var f, g :Text;
    i, j, n, k :integer;
Begin
  Assign(f,'fractii.in');
   Reset(f);
   Read(f,n);
  Close(f);

 Assign(g,'fractii.out');
 Rewrite(g);
 k:=2*n-1;
  For i:=2 to n do

     For j:=i to n do
       If (i mod j <>0) and (j mod i <>0) and ((j mod 2 <> 0) or (i mod 2 <> 0)) and ((j mod 3 <> 0) or (i mod 3 <> 0))then
           K:=K+2;
   Write(g,k);
  Close(g);
End.