Wolfram mathematica 作为下标变量求解方程

在Mathematica中，对于一些函数f[x]，我想解[f[x]==a，x]，并将解记录为下标[x，1，a]，下标[x，2，a]，依此类推

如果发生以下情况，最整洁的方法是什么

我知道有多少解决方案 我不知道有多少解决办法

---

对这两种情况都有效的一种方法是

MapIndexed[(Subscript[x, #2[[1]], a] = x /. #1) &,  Solve[f[x] == a, x]]

---

对这两种情况都有效的一种方法是

MapIndexed[(Subscript[x, #2[[1]], a] = x /. #1) &,  Solve[f[x] == a, x]]

---

在这种情况下，我们想用a的实际值替换下标中的值a，我认为，这是很可能的，我们必须用a_替换第一个a，如果我们想用a的实际值替换下标中的值a，我认为，这是很可能的，我们必须用a替换第一个a_