path: root/challenge-041/markus-holzer/perl6/ch-1.p6

use Prime::Factor; 
.say for (2..50).grep( -> $n { is-prime prime-factors( $n ).elems });