
$n = 0
$s = 0
$memo = nil

def rec(idx, prev, sum)
  return $memo[idx][prev][sum] if $memo[idx][prev][sum] != -1
  return (sum == $s ? 1 : 0) if idx == $n
  return 0 if sum >= $n
#  return 0 if sum + ($n - idx) * prev > $s

  res = (prev..100).inject(0){ |sub, i| sub + rec(idx+1, i+1, sum+i) }

  $memo[idx][prev][sum] = res
end

while (line = gets) != "0 0\n"
  $n, $s = line.split.map(&:to_i)

  $memo = Array.new(16) do
    Array.new(128) do
      Array.new(1024, -1)
    end
  end

  puts rec(0, 0, 0)
end