The populaion growth of Pheasant in an island

data = {8,30,81,282,705,1325}

ListPlot[data]

dataLog = Log[data]

g1 = ListPlot[ dataLog ]

regression = Fit[ N[dataLog],{1,t},t]

g2 = Plot[ regression,{t,0,6}]

Show[g1,g2]

Exp[1.0362]