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