integrate BesselI[1, 2*sqrt(-x*ln x)]/sqrt(-x*ln x) from 0 to 1