integrate besselj(0,k*x)^(2) dx