local max = 10000000 local t = {} for i = 1, max do t[i] = 0 end local a, b, a2, b2 for a = 0, 3162 do a2 = a * a b = a b2 = b * b if(a == 0) then b, b2 = 1, 1 end while(a2 + b2 <= max) do t[a2 + b2] = t[a2 + b2] + ((a2 == b2 or a == 0) and 4 or 8) b = b + 1 b2 = b * b end end local mma = math.max local mx = 0 local x, y = io.read("*n", "*n") for i = x, y do mx = mma(t[i], mx) end print(mx)