#!/usr/bin/perl
# Ex4_3.plx
use warnings;
use strict;

print "Przy jakiej wartoci mam skoczy poszukiwanie liczb pierwszych?", "\n";
my $n  =  <STDIN>;
my $i  =  3;
print "1  2  ";

#Bdziemy kontynuowa poszukiwanie do chwili, gdy ($i) osignie podan warto

OUTER: while  ($i  <=  $n){

#Podczas kadego przebiegu ptli musimy rozpocz od dzielenia przez liczb 2

  my $num  =  2;
  #Wykonuj sprawdzanie w celu dowiedzenia si, czy warto $i jest liczb pierwsz
  for  (1  ..  $i){
        if  (($i  %  $num  ==  0)  and  ($i  !=  $num)){
           #Jeli nie jest, sprawd nastpn liczb
           $i++;
           next  OUTER;
        }
         if  ($num  >  sqrt($i)){
           print  "$i ";
           $i++;
           next  OUTER;
        }
        $num++;
  }
}