Mathematica计算完全数
来源:网络收集 点击: 时间:2024-04-02【导读】:
介绍使用数论有关知识,Mathematica快速计算10000以内完全数。10000以内完全数有6,28,496,8128。工具/原料moreMathematica方法/步骤1/6分步阅读
2/6
3/6
4/6
5/6
6/6
注意事项
首先,要推导完全数,我们需要如图定义的函数σ(n),计算n的所有因子之和。
期中Boole表示真值函数,输入成立时为1,否则为0。
另一个函数d(n)表示因子数,在此只是简要介绍。

这两个函数,当m和n互素时,d(m*n)和σ(m*n)都表现出积性性质。

使用如图代码计算20的因子个数和因子之和。可见20有6个因子,因子和为42.
20不是完全数。

根据数论有关知识,我们可以先把n分解质因数,然后用如图公式计算因子数和因子和。

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

另外,当p为素数,且2^p-1也是素数时,2^(p-1)(2^p-1)是完全数。
使用如图代码验证。

整除符号使用esc divides esc输入。
实际上,偶完全数一定是2^(p-1)(2^p-1)的形式。
MATHEMATICA学习数论完全数版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_404264.html
上一篇:叫我大掌柜”天香绢“怎么购买
下一篇:英雄联盟手游怎样在龙魂商店兑换皮肤