local mma = math.max
local n, k = io.read("*n", "*n")
local edge = {}
local len = {}
local childcnt = {}
local parent = {}
for i = 1, n do
  edge[i] = {}
  len[i] = -1
  childcnt[i] = 0
  parent[i] = 0
end
len[1] = 0
local ret = io.read("*n") == 1 and 0 or 1
for i = 2, n do
  local a = io.read("*n")
  table.insert(edge[a], i)
  table.insert(edge[i], a)
end
local tasks = {1}
for it = 1, n do
  local src = tasks[it]
  for i = 1, #edge[src] do
    local dst = edge[src][i]
    if len[dst] == -1 then
      len[dst] = len[src] + 1
      table.insert(tasks, dst)
      childcnt[src] = childcnt[src] + 1
      parent[dst] = src
    end
  end
end
local maxlen = {}
tasks = {}
for i = 1, n do
  maxlen[i] = len[i]
  if childcnt[i] == 0 then
    table.insert(tasks, i)
  end
end
for i = 1, n - 1 do
  local c = tasks[i]
  local p = parent[c]
  if k < maxlen[c] then
    if maxlen[c] - len[c] == k - 1 then
      ret = ret + 1
    else
      maxlen[p] = mma(maxlen[p], maxlen[c])
    end
  else
    maxlen[p] = mma(maxlen[p], maxlen[c])
  end
  childcnt[p] = childcnt[p] - 1
  if childcnt[p] == 0 then
    table.insert(tasks, p)
  end
end
print(ret)
