      real :: n,d
      real :: numWatch
      integer :: ans
      
      read*,n,d
      
      numWatch = d*2 + 1
      
      ans = int( ceiling(n / numWatch) )
      
      print*,ans
      
      end