suite_rec(n,a):=
{
int j;
L:=[n];
L[0]:=a;
for(j:=1;j<=(n-1);j++)
{
L[j]:=simplify(((3*L[j-1]-2)/(2*L[j-1]-1)));
}
return L[n-1];
}
:;

suite(n,a):=
{
int j;
L:=[n];
L[0]:=a;
for(j:=1;j<=(n-1);j++)
{
L[j]:=suite_rec(j,a);
}
return L;
}
:;