WolframAlpha computational knowledge AI
RSolve[{a[n]=3*a[n-1]-2*a[n-4]+2*3^(n-4),a[0]=0,a[1]=0,a[2]=0,a[3]=1},a[n],n]