Question

怎么用mathematica求通项

我现在已知递推公式，想求数列的通项公式

我的递推公式是an+3和an+2，an之间的关系。
an+3=p*an+q*an+2
p，q为实数

或者之间告诉我这一类求通项的方法
最好能推出一个公式
另外，我用特征根解得的根是复数
我尝试化成三角形式再套公式，但结果不对

分不是问题
我不太会用matnematica，
我的是matnematica9，最好告诉我一步一步的操作

Answer 1

In[1]:= res = RSolve[{a[n + 3] == p*a[n] + q*a[n + 2]}, a[n], n]

Out[1]= {{a[n] ->
C[1] Root[-p - q #1^2 + #1^3 &, 1]^n +
C[2] Root[-p - q #1^2 + #1^3 &, 2]^n +
C[3] Root[-p - q #1^2 + #1^3 &, 3]^n}}
这个带任意常数。
有p，q实际数值，前三项值就可算具体了