# Apple, Banana, Pineapple problem

I'm attempting to solve:

 FindInstance[a/(b + p) + b/(a + p) + p/(a + b) == 4 && a > 0 && b > 0 && p > 0, {a, b, p}, Integers]


but, after evaluating in Mathematica, I get a message: "FindInstance::nsmet: The methods available to FindInstance are insufficient to find the requested instances or prove they do not exist."