|
|
这题难度适中,容易激发初学者的积极性。
用Mathematica求解的话:
- f[1] = 3/2;
- f[n_] := (1 + 1/n) f[n - 1] + (1 + (n - 1)/2) f[1] + (n - 1)^2 + 2 (n - 1)
复制代码
直接就得到 f[100]=507525
然后在连续求一些值,比如前20个:
可以得到:
- 3/2, 15/2, 21, 45, 165/2, 273/2, 210, 306, 855/2, 1155/2, 759, 975, \
- 2457/2, 3045/2, 1860, 2244, 5355/2, 6327/2, 3705, 4305
复制代码
用一句代码获得数列通项:
- (FindSequenceFunction@%)[n]//FullSimplify
复制代码
得到:
|
|