ll@n,@l,@r,@a[n],z=0;
sortA(n,a);
rep(i,n-1){
	ll j=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;
	}
	ll k=j;
	while(k<n&&(a[i]*a[k]>=l&&a[i]*a[k]<=r&&a[k-1]*a[k]>=l&&a[k-1]*a[k]<=r)){
		++k;
	}
	z>?=k-j;
}
wt(z+1);