I’m trying to solve

$$left(frac{hc}{k_B} – 5xright)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?