for$i(3..150){print$i*2,":";for(3..$i){print" $_+$h"if f($_)&&f($h=$i*2-$_)}print"
"}sub f{($n)=@_;for(2..$n-1){return if$n%$_==0}1}