=begin
      Questo e' il programma del crivello di Eratostene
      che calcola i numeri primi minori di MAXN

      Passo poi in rassegna i numeri primi e trovo tutti i multipli
      di ciascuno di essi minore di Nmax, e li scarto.
      Infine stampo i numeri primi trovati
=end

   Nmax = 100000;         # massimo numero primo (costante)

   n = (1..Nmax).to_a # creo l'array che contiene i primi Nmax interi
   for j in 2..Math.sqrt(Nmax).floor
     n.reject!{|i| i%j == 0 and i!= j}
   end
   p n # stampo i risultati