function [fn] = myfn(n)
%H sunartisi upologizei tin akolouthia f(1)=1,
%f(n)=f(n-1)*(1-e^-n), n=2,3,...
fn1=1;
if n==1
fn=fn1;
end
for i=2:n
fn=fn1*(1-exp(-i));
fn1=fn;
end
