Not so easy, not so nice, and possibly buggy, as a 1 liner:

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