Integrate[m^(-0.66-0.001 m^3(700 +Log[m])),{m,0,Infinity}]