I’m trying to solve $ $ \left(\frac{hc}{k_B} – 5x\right)e^{hc/k_Bx} + 5x = 0,$ $ where $ h = 6.626 \times 10^{-34}$ , $ k = 1.381 \times 10^{-23}$ and $ c = 3 \times 10^8$ . My code is

`h = 6.626*^-34; k = 1.381*^-23; c = 3*^8; NSolve[((h c)/k - 5 x) Exp[(h c)/k x] + 5 x == 0, x] `

but Mathematica doesn’t solve the equation, am I doing something wrong?