Assuming your data is of the form (x, y)
I get the following using Mathematica:
y = -54353.3 + 1495.3 x - 13.6926 x^2 + 0.0417825 x^3
Using the function Fit[data, {1, x, x^2, x^3}, x], on the data
data = {{116.3165114, 71.36645962}, {113.6052632,
74.42002461}, {108.173888, 71.76086401}, {106.0930425,
69.06894376}, {105.9976989, 66.16615532}, {109.9961508,
61.64905768}, {111.3208562, 59.59447497}, {113.6052632,
57.57997539}, {111.7986482, 55.0033795}, {107.6971184,
51.97308414}, {106.8300078, 52.44014129}, {103.7731156,
55.31507487}, {103.9561187, 56.81582202}};