$<.each_line do |line|
	n, x = line.split.map(&:to_i)
	break if n.zero? and x.zero?

	rslt = 0
	([1, x - 2 * n + 1].max..[(x / 3 - 1), n - 2].min).each do |a|
		rem = x - a
		rslt += (rem - 1) / 2 - [a + 1, rem - n].max + 1
	end

	p rslt
end