kill(all)$

van=facebook.com/LearningCalculus$

a[0]:1$

a[1]:1$

a[n]:=a[n-1]+2*a[n-2]$

create_list(a[n],n,1,10);

      Array functions remember, so you have to re-initialize.

kill(all)$

load(solve_rec)$

S(n):=''(rhs(solve_rec(a[n]=a[n-1]+2*a[n-2],a[n],a[1]=1,a[0]=1)));

create_list(S(n),n,1,10);