($x,$a,$y,$b)=glob<>;
$f{$_}++for`factor $y`=~/ \d+/g;print
grep({
	$e=0;
	$x/=$_,$e++until$x%$_;
	$f{$_}*$b>$e*$a;
}keys%f)?No:Yes;