//,grep!($'%$_),2..$_-1or push@p,$_ for 3..300;//,map{$a[$'+$_].=" $'+$_"if$'<=$_}@p for@p;print$_*2,":",$a[$_*2],$/for 3..150