ll@n,@l,@r,@a[n],z=1;
sortA(n,a);
rep(i,n){
	rep(j,i){
		if(a[i]*a[j]>=l&&a[i]*a[j]<=r){
			z=2;
		}
	}
}
rep(i,n-1){
	ll j=i+1;
	while(j<n&&a[i]*a[j]>=l&&a[i]*a[j]<=r&&a[j-1]*a[j]>=l&&a[j-1]*a[j]<=r){
		++j;
	}
	z>?=j-i;
}
wt(z);