<< poly.m

?Poly

Poly[(n-1) y[n+2]-(3n-2) y[n+1]+2n y[n]==0,y[n]]

Poly[(n-1) y[n+2]-(3n-2) y[n+1]+2n y[n]==0,y[n],True]

Poly[(-8+6*n+2*n^2)*f[n]+(16-5*n-3*n^2)*f[1+n]+(-6+n+n^2)*f[2+n]==0,f[n]]

Poly[(-8+6*n+2*n^2)*f[n]+(16-5*n-3*n^2)*f[1+n]+(-6+n+n^2)*f[2+n]==2n,f[n]]

Poly[n*f[n]-(1+n)*f[1+n]==-(n*(-1+3*n)),f[n]]