自然数方幂的和
这是一篇旧文,其中的内容可能已经过时。
我们已经知道:
r=1∑nrr=1∑nr2r=1∑nr3r=1∑nr4r=1∑nr5=2n2+2n=3n3+2n2+6n=4n4+2n3+4n2=5n5+2n4+3n3−30n=6n6+2n5+125n4−12n2
为了确定一般的表达式,笔者提出了这样的猜测:
r=1∑nrk=k+1nk+1+2(0k)nk+12(1k)nk−1−120(3k)nk−3+⋯=k+1nk+1+l=0∑k−1cl(lk)nk−l
其中 c 为待定系数组:c0=21,c1=121… 在上式中令 n=1,得到 c 的递推关系式
k+1k=l=1∑k−1cl(lk)
在 Mathematica 中求出 c 的前 100 项,并检验方程 (1) :
c = {};
(* 按 (1) 左边求和 *)
TrueSum[exp_, n_] := Plus @@ (Range[n]^exp);
(* 按 (1) 右边求和 *)
UnknownSum[exp_, n_] := Plus @@ Append[MapIndexed[#1 Binomial[exp, First[#2] - 1] n^(exp - First[#2] + 1) &, Take[c, exp]], n^(1 + exp)/(1 + exp)];
Do[
(* 按 (2) 逐项求 c *)
AppendTo[c, (k/(k + 1) - Plus @@ MapIndexed[#1 Binomial[k, First[#2] - 1] &, c])/k];
(* b 为真当且仅当对所有 r<k+2, (1) 均成立,此时由线性方程组理论知 (1) 恒成立 *)
Do[b = True; b = b && UnknownSum[k, r] == TrueSum[k, r], {r, k + 1}];
(* 按 b 的值输出关于 k 的公式 *)
Print[Underoverscript["\[Sum]", "r=1", "n"], "r"^k, If[b, "=", "!="], TraditionalForm[UnknownSum[k, "n"]]], {k, 100}]
由此结果,有理由相信 (1) 是成立的。
事实上,Jacob Bernoulli 早已证明了 (1) 的正确性,并给出了一种更统一的表达:
r=0∑nrk=k+11l=1∑k+1(lk+1)(−1)k−l+1Bk−l+1nl
其中, Bn 为 Bernoulli 数,有
Bn=⎩⎨⎧1,−1/2,ncn−1,n=0n=1n≥2
参考文献:
- 周奇. 2008-2011 年数学笔记[H]. 2010, 09: 71-74.
- Weisstein, Eric W. Bernoulli Number.