for$p(@p=grep 2**$_%++$_==1,@n=2..300){$p<=$_&&push@{$p+$_},"$p+$_"for@p}@$_&&print"$_: @$_ "for@n