($n,$z)=glob<>;
print $n>2?No:$n<2?$z>1?Yes:No:${
	$r=No;
	for$i(1..1e3){
		$w=$z-$i*$i;
		if($w>0&&$w==int(sqrt($w))**2){
			$r=Yes;
		}
	}
	r
}