# Ejercicio 04.4

kill(all)$

a[n]:=(2*n^2)/(n+1);

## Apartado a)

L1=L1:limit(a[n+1]-a[n], n, inf);

## Apartado b)

b[n]:=sum(a[k], k, 1, n);

makelist(a[n], n, 1, 5);
makelist(b[n], n, 1, 5);

c[n]:=b[n]/n^2;

L2=limit(c[n], n, inf);

Maxima no puede calcular este límite de esta manera.
Hay que aplicar el Teorema de Stolz

'(b[n+1]-b[n])=a[n+1];

d[n]:=n^2;
'(d[n+1]-d[n])=d[n+1]-d[n];

L=limit(a[n+1]/(d[n+1]-d[n]), n, inf);