$i++;while(@p<50){$i++;&d;print"$i,"x!$x}sub 
d{for(@p){if($x=(!($i%$_))){return}}push@p,$i}
[download]