# Pagina 40.
Eratostene = function (n)
{v=2:n; u=c(); r=sqrt(n)
repeat
{p=v[1]; if(p>r) break;
u=c(u,p)
v=v[v%%p>0]}
c(u,v)}