RSolve[{b[n + 1] == (b[n] + d) (1 + r), b[0] == a - d}, b[n], n]