clear
sucesion=[];

for n=1:10
   x_n=2*n/(n^2+1);
   sucesion=[sucesion x_n]; 
end    


clear
sucesion=[];
n=1;
%bucle para calcular el primer natural n cuyo n! tiene 5 digitos
while prod(1:n)<1e5,
   n=n+1;
end   
n