($n,$z)=glob<>;
print $n>2?No:$n<2?$z>1?Yes:No:do{
	$r=No;
	for$x(1..1000){
		for$y(1..1000){
			$d[$x*$x+$y*$y]=1;
		}
	}
	$d[$z*$z]?Yes:No
}