($n,$l,$h)=glob<>;
@c=glob<>;
for$k(1..2**$n-1){
	{
		use bigint;
		$a=1;
	}
	$c=0;
	for$i(0..$n-1){
		if($k&1<<$i){
			$a=$a->blcm($c[$i]);
			++$c;
		}
	}
	$r+=(int($h/$a)-int(($l-1)/$a))*$c*(-1)**($c-1);
}

print $r;