8楼: Originally posted by cooooldog at 2015-07-01 14:38:58
可以先直接定义为递归函数,然后用递归函数赋值给数组

我用符号计算方式得到结果依次是这样的:

\left\{1,0,-\frac{13}{20},0,\frac{247}{2400},0,-\frac{13819}{720000},0,\frac{246103}{57600000},0,-\frac{4 ...

11楼: Originally posted by cyberspecter at 2015-07-01 22:57:44
能否给出命令？...

ClearAll["Global`*"]
Global`f
f[0]=1
f[1]=0
f[k_]:=-1/(k(k-1)) (f[k-2]+3/10 Sum[Sum[f[k1]f[(k2-k1)]f[(k-2-k2)],{k1,0,k2}],{k2,0,(k-2)}])/;k>=2
Do[f[k]=f[k],{k,1,100}]
f/@Table[i,{i,0,50}]