# Exercici 04.6

kill(all)$

a[n]:=1+sum(1/(2*k), k, 1, n);
makelist(a[n], n, 1, 5);

b[n]:=log(n);
makelist(b[n], n, 2, 5);

## Apartat a)

limit(a[n]/b[n], n, inf);

Aixo suggereix aplicar algun criteri de convergència.
En particular sembla aplicable el criteri de Stolz.

'(a[n+1]-a[n])=1/(2*n+1);

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

y[n]:=b[n+1]-b[n];

limit(x[n]/y[n], n, inf);

## Apartat b)

Atès el resultat anterior i sabent que (b[n]) és un infinit, 
es pot afirmar que (a[n]) és un infinit del mateix ordre.