Nenner:

Integrate[r Exp[-λ r^2], {r, 0, ∞}]

Zähler:

Integrate[
      Exp[-c x^2/(k T)] (x + 1/(k T) x^4 + 
            1/(k T) x^5), {x, -∞, ∞}]