| 显示找到的3个结果中的1-3个。
第页1
1, 1, 2, 2, 2, 2, 3, 3, 2, 6, 2, 4, 4, 2, 3, 4, 4, 3, 2, 10, 2, 2, 4, 6, 4, 2, 5, 4, 2, 10, 2, 5, 6, 2, 4, 6, 4, 2, 2, 14, 3, 4, 4, 4, 4, 2, 6, 1, 8, 2, 11, 2, 4, 6, 4, 4, 6, 4, 2, 4, 17, 2, 2, 4, 6, 4, 4, 1, 8, 4, 2, 12, 2, 9, 6, 2, 6, 4, 4, 4, 2, 18, 3, 2, 6
评论
的四倍（x，y，z，w）A328149型是一组满足x^3+y^3+z^3=w^3的正整数。
例子
a（7）＝3，因为A328149型（7） =240:{1、2、3、4、5、6、8、10、12、15、16、20、24、30、40、48、60、80、120、240}包含三个四元组{3、4，5，6}、{6，8，10，12}和{12，16，20，24}。第一个四元组是原始的。
MAPLE公司
带有（数字理论）：
对于从3到3000的n，do：
d： =除数（n）：n0：=nops（d）：it：=0：
对于从1到n0-3的i，执行以下操作：
对于从i+1到n0-2的j，执行以下操作：
对于从j+1到n0-1的k，do：
对于从k+1到n0的m，do：
如果d[i]^3+d[j]^3+d[k]^3=d[m]^3
然后
它：=它+1：
其他的
图1：
日期：
日期：
日期：
日期：
如果它>0，那么
printf（`%d，`，it）：
其他fi：
日期：
数学
nq[n_]：=如果[Mod[n，6]>0，0，块[{t，u，v，c=0，d=除数[n]，m}，m=长度@d；Do[t=d[[i]]^3+d[[j]]^3；做[u=t+d[[h]]^2；如果[u>n^3，则中断[]]；如果[Mod[n^3，u]==0&&IntegerQ[v=u^（1/3）]&&Mod[n，v]==0，c++]，{h，j+1，m-1}]，{i，m-3}，{j，i+1，m-2}]；c] ]；选择[Array[nq，1638]，#>0&]（*program from乔瓦尼·雷斯塔根据序列进行调整。请参阅A330894*)
黄体脂酮素
（PARI）isok（n）={my（d=除数（n），nb=0，m）；如果（#d>3，对于（i=1，#d-3，对于[j=i+1，#d-2，对于（k=j+1，#d-1，如果（ispower（d[i]^3+d[j]^3+d[k]^3，3，&m）&！（n%m），nb++）；）；）
lista（nn）=我的（m）；对于（n=1，nn，如果（m=isok（n），打印1（m，“，”））\\米歇尔·马库斯2020年11月15日
数m，使得包含在m的除数集合中的满足x^3+y^3+z^3=w^3的所有四元组（x，y，z，w）的元素正好是某些k的m的前k个除数。
+10
1
720, 864, 1440, 1728, 2160, 2592, 2880, 3456, 4320, 5184, 5760, 6480, 6912, 7776, 8640, 10368, 11520, 12960, 13824, 15552, 17280, 19440, 20736, 23040, 23328, 25920, 27648, 31104, 34560, 38880, 41472, 46080, 46656, 51840, 55296, 58320, 62208, 69120, 69984, 77760
评论
成员m inA328149型其中存在一个数k＜tau（m），使得包括在m的除数集合中的满足x^3+y^3+z^3=w^3的所有四元组的元素是m的前k个除数。
猜想1:a（n）==0（mod 144）。
猜想2：如果数字m使得包含在m的除数集中的满足x^3+y^3+z^3=w^3的所有四元组（x，y，z，w）的元素恰好是m的前k个除数，那么k=tau（m）-5或tau（m）-6。
序列{b（n）}={24，19，30，23，34，25，36，27，42，30，42，44，31，31，50，35，48，54，35，37，58，54。我们观察到c（n）=5或6（参见链接中的表格）。当n=1到70时，观察到的统计数据为数字5出现34次（48.57%），数字6出现36次（51.42%）。当n趋于无穷大时，很可能Pr（5）趋于0.5，Pr（6）趋向0.5，其中Pr（x）是发生x的概率。
176个学期，我们得到87个5分和89个6分-米歇尔·马库斯2020年11月17日
参考文献
Y.Perelman，《x^3+Y^3+z^3=u^3的解决方案》，《数学可以变得有趣》，第316-9页，《和平号莫斯科》，1985年。
例子
2592之所以在序列中，是因为除数是{1，2，3，4，6，8，9，12，16，18，24，27，32，36，48，54，72，81，96，108，144，162，216，288，324，432，648，864，1296，2592}，以及满足x^3+y^3+z^3=w^3的9个四元组（x，y，z，w）的元素，并且属于2592的除数集：（1，6，8,9），（2，12，16,18），（3、18、24、27）、（4、24、32、36）、（6、36、48、54）、（9、54、72、81）、（12、72、96、108）、（18、108、144、162）和（36、216、288、324）是2592的前25个除数，其中25=τ（2592）-5=30-5。
MAPLE公司
带有（数字理论）：
对于从6乘6到200000的n，do:lst:={}:lst1:={{}:it:=0:
d： =除数（n）：n0:=nops（d）：
对于从1到n0-3的i，执行以下操作：
对于从i+1到n0-2的j，执行以下操作：
对于从j+1到n0-1的k，do：
对于从k+1到n0的m，do：
如果d[i]^3+d[j]^3+d[k]^3=d[m]^3
然后
它：=它+1：
lst:=lst联合{d[i]}联合{d]}联盟{d[k]}合并{d[m]}：
其他的
图1：
日期：
日期：
日期：
日期：
n1：=无（lst）：
对于从1到n1的l，请执行以下操作：
lst1:=lst1联合{d[l]}：
日期：
如果lst=lst1和lst<>{}
然后
x： =τ（n）-n1:打印f（`%d%d%d%d%d\n`，n，τ（n），n1，x，it）：
其他fi：
日期：
黄体脂酮素
（PARI）isok（n）={my（d=除数（n），nb=0，s=[]（s）；如果（#s，对于（k=1，#s，如果（s[k]！=d[k]，返回（0））；）；返回（1）；）\\米歇尔·马库斯2020年11月15日
最小k，其除数集正好包含n个四元组（x，y，z，w），使得x^3+y^3+z^3=w^3，如果不存在这样的k，则为0。
+10
1
60, 120, 240, 432, 960, 360, 3840, 1728, 2592, 720, 1800, 2520, 161700, 1440, 6840, 9000, 2160, 2880, 168300, 5040, 41472, 5760, 1520820, 4320, 7200, 11520, 119700, 10080, 682080, 10800, 8640, 14400, 27360, 12960, 373248, 20160, 61560, 17280, 28800, 55440, 171000, 21600
评论
观察结果：a（n）==0（mod 12）。
通过列出基本元组（w，x，y，z），可以使用这些元组的lcm计算m的除数中有多少个这样的元组-大卫·A·科内斯2020年9月26日
参考文献
Y.Perelman，《x^3+Y^3+z^3=u^3的解决方案》，《数学可以变得有趣》，第316-9页，《和平号莫斯科》，1985年。
例子
a（3）=240，因为除数{1、2、3、4、5、6、8、10、12、15、16、20、24、30、40、48、60、80、120、240}的集合包含3个四元组{3、4，5，6}、{6、8，10，12}和{12，16，20，24}。第一个四元组是原始的。
MAPLE公司
with（numtheory）：除数（240）；
对于从1到52的n，执行以下操作：
ii:=0：
对于q从6乘6到10^8，当（ii=0）时，做：
d： =除数（q）：n0：=nops（d）：it：=0：
对于从1到n0-3的i，执行以下操作：
对于从i+1到n0-2的j，执行以下操作：
对于从j+1到n0-1的k，do：
对于从k+1到n0的m，do：
如果d[i]^3+d[j]^3+d[k]^3=d[m]^3
然后
它：=它+1：
其他的
图1：
日期：
日期：
日期：
日期：
如果它=n
然后
ii:=1:printf（`%d%d\n`，n，q）：
其他的
图1：
日期：
日期：
数学
使用[{s=Array[Count[Subsets[Divisors[#]，{4}]^3，_？（#1+#2+#3==#4&@#&）]&，10^4]}，Rest@Values[#][[1；；1+LengthWhile[Differences@Keys@#，#==1&]]&@KeySort@PositionIndex[s][[All，1]](*迈克尔·德弗利格2020年9月18日*）
黄体脂酮素
（Python）
从itertools导入组合
来自sympy输入除数
k=1
为True时：
如果n==和（1代表组合中的x（（d**3代表除数（k）中的d），4）如果和（x[：-1]）==x[-1]）：
返回k
扩展
a（13）-a（22）来自柴华武，2020年9月25日
搜索在0.005秒内完成
| 