enum{X=2000};a[X],b[X],t[X],i,j,k,p,M;main(n){for(scanf("%d",&n);i<n?scanf("%d",a+i++):~scanf("%d",b+k++);M=n);for(;i--;M=M>k?k:M){for(k=n;k--;)t[k]=a[k]*X;for(;j<n;t[p]+=b[(i+j++)%n]/2*X+1)for(k=n;k--;t[k]<t[p]?p=k:0);for(;j;)k=fmax(k,t[--j]%X);}M=!printf("%d",M);}