<>; for$N(<>){ if($N%2){ print`factor @{[grep$_>0,map$N-(1<<$_),1..60]}`=~/:( \d+)\1*\n/?Yes:No,$/ }else{ print$N>2?Yes:No,$/ } }