plot BesselJ(n,n) from n=1000 to n=5000