Question

帮我用WOLFRAM MATHEMATICA进行一个计算

式子如下，已知递推求通项。
如果求不出来的话，就传上输入的算法的截图吧
n是任意给的的,可以进入结果

Answer 1

……你bm通项里的n是怎么决定的？
————
目测没解析解，至少Mathematica不会解这个的解析解。如果可解，那么语法是：

b[m_] := Sum[2^(m (i - 2)), {i, n}]
RSolve[{a[0] == 1, a[k + 1] == Sum[a[k - j] b[j + 1] (-1)^j, {j, 0, k}]/(k + 1)}, a[k], k]

软件原样返回了嗯。