RecurrenceTable[{g[n+1] == (1.25 -0.08645811766527672) g[n], g[1] == 2500}, g, {n, 1, 100}]