I'm not sure what's going on here but you might have some insight on this:
Following you code above using RSolve. I used it to find the solution to virtually the same problems with different coefficients.
RSolve[{4 a[n] + 3 a[n - 1] == 0, a[0] == 2}, a[n], n]
The (latex) output Mathematica gives is:
$ \left\{\left\{a(n)\to (-3)^n 2^{1-2 n}\right\}\right\}$
I'm not sure what exactly is going on here because that isn't exactly a solution I can make any sense of. The correct solution to this equation given initial conditions would be:
$ y^h_t = 2(-0.75)^t $ representing the homogenous portion of the solution. At least this is my understanding and am fairly confident is the correct solution. Oddly I get this solution when inputting the following text into Mathematica and ignoring the initial condition parameter:
RSolve[4 a[n] + 3 a[n - 1] == 0, a[n], n]
Gives me:
$ \left\{\left\{a(n)\to c_1 \left(-\frac{3}{4}\right)^{n-1}\right\}\right\} $
Following setting up the initials I would get to my answer. Not sure you're able to see where my misunderstanding may lie, but I appreciate the time.
Best,
Ali