|
本帖最后由 天山草 于 2021-8-22 10:13 编辑
这个问题发布在【数学研发论坛】上以后,经 mathe 大神研究,最终给出了一个完美的统一公式,此公式对于任何正整数 m、n 都是成立的。
此公式的 mathematica 计算代码是:
- Clear["Global`*"];
- m = 6; n = 30;
- d = Divisors[m];
- s = 0;
- Do[a[i] =
- 1/m ((-1)^(m - d[[i]]) EulerPhi[m/d[[i]]])*
- Binomial[\[LeftFloor]d[[i]]*n/m\[RightFloor], d[[i]]];
- s = s + a[i], {i, 1, Length[d]}];
- Print["F (", n, ",", m, ") = ", s];
复制代码
运行结果是:
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
评分
-
查看全部评分
|