RSolve[{a[n + 2] == a[n + 1] a[n]/(6 a[n] - 9 a[n + 1]), a[1] == 1, a[2] == 9}, a[n], n]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.