#使える整数の数 m = 1000
#そのまま計算すると
# m ^ 4 = １兆とおり
#なので、分割して計算する
#600万とおりですむ

# m * m = １００万とおり
dp2 = Array.new(2001).fill(0)
(0..1000).each do |a|
  (0..1000).each do |b|
    dp2[a + b] += 1
  end
end

#m * 2m = 200万とおり
dp3 = Array.new(3001).fill(0)
(0..1000).each do |c|
  dp2.size.times do |s|
    dp3[s + c] += dp2[s]
  end
end
dp2 = nil

# m * 3m = 300万とおり
dp4 = Array.new(4001).fill(0)
(0..1000).each do |d|
  dp3.size.times do |s|
    dp4[s + d] += dp3[s]
  end
end
dp3 = nil

while input = $stdin.gets do
  p dp4[input.to_i]
end