use strict;
use warnings;
for my $i(2..1000000){
	print "$i " if $i==2;
	my $even=0;
   	my $notprime=0;
   	my $j=$i/2;
   next if int($j)==$j;    
	my $n=$i**(1/2);
	for(3..$n){my $o=$i/$_;
	$notprime=1 if int($o)==$o;
	last if int($o)==$o;}
	print "$i " if $even==0 && $notprime==0;
}