<<Vilcretas`

GraficaRRL[{2,-3,-4},{1,2,3}]

GraficaRRL[{2,3,-4},{1,2,3}]

GraficaRRL[{-2,-3,-4},{1,2,3}]

GraficaRRL[{2,-3,4},{1,2,3}]

?GraficaRRL

Last[RT[{-2,0,5,-9},{-2,-9,0},49, inicio->2]]

((-22*(6^5)-2*(6^2))/(-20*(6^5)-7*(6^2)+9))

FindRRHL[{-5,-3,-7,-43,5,-439,665,-5251,13853,-70975},a,n]

MetodoRRHL[{4,-4},{9,1},n,b]

MetodoRRHL[{4,-4},{3,1},n,b]

Table[(2/5)(((((-1)/7)))^n)-(3/4)((((1/5)))^n),{n,5,30}];

FindRRHL[Table[(2/5)(((((-1)/7)))^n)-(3/4)((((1/5)))^n),{n,5,15}],a,n]

programa[n_]:=Module[{paux}, 
paux[m_, Cont_:1,p_]:=If[m==1,7,
If[m==Cont, p,paux[m, Cont+1, p * 7]]];
paux[n,7]]

for(int i = 0; i < m; i++){
	p *= 7;
}

(7^2)

Sort[Solve[(t^4)-1(t^3)-3(t^2)+36+108t==0]]

MetodoRRHL[{-3,36,108},{1,1,2},n,b]

-a[n] = -108a[n-3]-36a[n-2]+3a[n-1]
a[n] = 108a[n-3]+36a[n-2]-3a[n-1]

Sort[Solve[(t^3)+3(t^2)-36t-108==0]]