% SUCCESSIONE RICORRENTE.
clear all;

% SUCCESSIONE "s_n".
s(1)=exp(-1);   
for n=1:99
    s(n+1)=1-(n+1)*s(n);
end

% SUCCESSIONE "t_n".
M=1000;
t=zeros(M,1); % INIZIALIZZAZIONE "t".
for n=M:-1:2
    j=n-1;
    t(j)=(1-t(n))/n;
end

% PLOT SEMI-LOGARITMICO.           
clf;
semilogy(1:length(s),abs(s),'k-',...
    1:length(s),abs(t(1:length(s))));
