5.42 example of doing convergence test in maple

restart; 
c:='c': C:='C': n:='n': P:='P': 
C := n -> ((n+2)/(3*n+1))^n: 
### WARNING: calls to `C` for generating C code should be replaced by codegen[C] 
`The general term is `, c[n]= C(n); ` `; 
`The n-th root is:`; 
### WARNING: calls to `C` for generating C code should be replaced by codegen[C] 
P := C(n)^(1/n): 
abs(c[n])^(1/n) = P; 
P := simplify(P, assume=positive): 
abs(c[n])^(1/n) = P;