How to solve the integration

f[x_]:=(Sqrt[-4.*10^20 + 
x^2] (4.48175*10^115 - 8.57856*10^95 x^2 + 1.80404*10^75 x^4 + 
 5.15338*10^55 x^6 - 3.37404*10^35 x^8 + 5.22368*10^14 x^10 + 
 Log[1/x^2] (1.27558*10^116 - 2.22982*10^96 x^2 + 
    8.67132*10^75 x^4 + 2.70411*10^55 x^6 - 1.83343*10^35 x^8 + 
    2.28506*10^14 x^10 + 
    Log[1/x^2] (1.36145*10^116 - 2.15389*10^96 x^2 + 
       1.10181*10^76 x^4 - 2.31376*10^55 x^6 + 
       1.71258*10^34 x^8 + 4.78493*10^11 x^10 + 
       Log[1/x^2] (6.4582*10^115 - 9.14499*10^95 x^2 + 
          5.10861*10^75 x^4 - 1.41118*10^55 x^6 + 
          1.93151*10^34 x^8 - 
          1.04953*10^13 x^10 + (1.14882*10^115 - 
             1.43603*10^95 x^2 + 7.18014*10^74 x^4 - 
             1.79503*10^54 x^6 + 2.24379*10^33 x^8 - 
             1.1219*10^12 x^10) Log[1/
            x^2])))))/(x^5 (-5.62159*10^20 + 
 4.07206 x^2 + (-4.*10^20 + 1. x^2) Log[1/x^2]) (3.16022*10^41 - 
 4.57829*10^21 x^2 + 16.5817 x^4 + 
 Log[1/x^2] (4.49727*10^41 - 4.38197*10^21 x^2 + 
    8.14413 x^4 + (1.6*10^41 - 8.*10^20 x^2 + 1. x^4) Log[1/
      x^2])))

and the integral is

NIntegrate[(1/x^5)Exp[-f[x]], {x, xn, 10^10}]

if not possible, is there any way to plot the integral from say x=10^5 to 10^10