% Calcola il vettore dei primi minori o uguali ad n usando il crivello di
% Eratostene.
%
% Prende in input un naturale n.
% Restituisce il vettore dei primi minori o uguali ad n.
% ------------------------------------------------------------

function X=eratostene(n)

X=crivello(n);      % Gli 1 corrispondono ai numeri primi:
                    % 0 1 1 0 1 0 1 0 ...
                    
X=X.*(1:n);         % i*X(i) , cioe':
                    % 0 2 3 0 5 0 7 0 ...
                    
X=setdiff(X,0);     % Toglie gli elementi non nulli (ovvero, calcola la
                    % differenza tra il vettore X e il vettore 0=[0]):
                    % 2 3 5 7 ...