Mathematica计算完全数

1、首先，要推导完锾哩菸谷全数，我们需要如图定义的函数σ(n)，计算n的所有因子之和。期中Boole表示真值函数，输入成立时为1，否则为0。另一个函数d(n)表示因子数，在此只是简要介绍。

3、使用如图代码计算20的因子个数和因子之和。可见20有6个因子，因子和为42.20不是完全数。

5、使用如图代码计算10000以内数的因子和。使用Select选出完全数，如图。完全数的因子和是数的两倍。