class RangeMaximumQuery
  attr_reader :n, :dat

  # @param [Integer] len 区間の長さ
  def initialize(len)
    @n = 1

    @n *= 2 while @n < len
    @dat = Array.new(2 * @n - 1, 0)
  end

  # @param [Integer] idx 更新箇所
  # @param [Integer] val 更新値
  def update(idx, val)
    idx += n - 1
    dat[idx] = val

    while idx > 0
      idx = (idx - 1) / 2

      if dat[idx * 2 + 1] > dat[idx * 2 + 2]
        dat[idx] = dat[idx * 2 + 1]
      else
        dat[idx] = dat[idx * 2 + 2]
      end
    end
  end

  # 区間 [l, r] の最小値を返す。探索範囲の初期値は [0, n - 1] で固定 (全範囲)
  def find_max(l, r)
    query(l, r, 0, 0, n - 1)
  end

  private

  # @param [Integer] a 探索範囲の左端
  # @param [Integer] b 探索範囲の右端
  # @param [Integer] idx 現在位置
  # @param [Integer] l 現在の探索範囲の左端
  # @param [Integer] r 現在の探索範囲の右端
  def query(a, b, idx, l, r)
    return -Float::INFINITY if r < a || b < l

    if a <= l && r <= b
      dat[idx]
    else
      vl = query(a, b, idx * 2 + 1, l, (l + r) / 2)
      vr = query(a, b, idx * 2 + 2, (l + r) / 2 + 1, r)

      vl > vr ? vl : vr
    end
  end
end

N, K = gets.split.map(&:to_i)
A = N.times.map { gets.to_i }
a_max = A.max
rmq = RangeMaximumQuery.new(N + 1)

A.each do |a|
  left = [0, a - K].max
  right = [a_max, a + K].min
  v = rmq.find_max(left, right)
  rmq.update(a, v + 1)
end

puts rmq.find_max(0, a_max)
