> Solve[x/(y + z) + y/(z + x) + z/(x + y) == 4, {x, y, z}, Integers]

but it gives a very long output in terms of Root[]s and conditional expressions.