
function demobernoulli1

n=10;
somma=seriebernoulli1(n);
errore=6-somma;
tol=1e-6;
while errore >= tol
    n=n+1;
    somma=seriebernoulli1(n);
    errore=6-somma;
end