local msq = math.sqrt
local mfl, mce = math.floor, math.ceil
local mmi, mma = math.min, math.max
local n = io.read("*n")
-- n = k^a(1-kb)
local ret = 0
local lim = mmi(n - 1, mce(msq(n)))
-- a = 0
for i = 1, lim do
  if n - 1 < i * i then break
  elseif n - 1 == i * i then
    ret = ret + 1
  elseif (n - 1) % i == 0 then
    ret = ret + 2
  end
end
-- a = 1, ..., 40
for a = 1, 40 do
  for k = 2, lim do
    local kpow = 1
    for i = 1, a do
      kpow = kpow * k
    end
    if n < kpow then break end
    if n % kpow == 0 then
      local v = n // kpow
      if v % k == 1 then
        ret = ret + 1
      end
    end
  end
end
print(ret)
