I have a sequence of data:

data = {{20, 291}, {21, 440}, {22, 571}, {23, 830}, {24, 1287}, {25, 1975}, {26, 2744}, {27, 4515}, {28, 5974}, {29, 7711}};

The data is in the exponential form x1 Exp[x2 t] - x3. For some reason, I would like to transform the data to the linear form log (CR(t) + x3) first, and then transform it back to the exponential form. I would like to find the best value of x3 that can give me the best simulation. Is there any way to do this in Mathematica?