N[integrate[(sqrt(t) BesselJ(1, 2 sqrt(t) sqrt(log(2))))/((-1 + e^t) sqrt(log(2))),{t,0,100}],10]