print "$_\n" for grep { $n=$_; $_==1 or ( $_%2 and ! grep { $n%$_==0 } (2..int($n/2))) } (1..100);