function x=successionefor( a1, nv )
% Sintassi x=successione(a1,nv)
% Calcola la successione
% 
%      a(n+1)= 3*a(n)-1 
%
% partendo da a(1)=a1 con nv elementi 
%
a(1)=a1;

for n = 2:nv
    a(n) = 3*a(n-1)-1;  
end

x = a;