RSolve[{b[x+1]==b[x]*(1+r)-d,b[0]==s},b[x],x]