Solve[-(1/x^2) - (1 - p)^x Log[1 - p] == 0, x]