a^2-b^2=n^3

王守恩

葡萄糖 发表于 2022-11-27 11:56

谢谢 葡萄糖 ！宝贵的资料(所以我赖在这里)，慢慢消化。

推销自己，我这个公式也是挺好的：可以复制，

Table[Floor[DivisorSigma[0, n/4]/2] (Floor[n/4] - Floor[(n - 1)/4]) + Floor[DivisorSigma[0, n]/2] (Floor[(n - 1)/2] - Floor[(n - 2)/2]), {n, 1, 200}]

后面的{n, 1, 200}可以把从 1 开始的数连续拖出来，如果只是要某个数，则把 1,200 改成相同的 2 个数即可，挺方便的。