use integer;<>;print+($_&/^/?`factor @{[grep$_>0,map$'-(1<<$_),1..60]}`=~/:( \w+)\1*
/:$_>2)?Yes:No,$/for<>