A328204-OEIS公司

A328204型

除数中包含的四倍数A328149型（n） ●●●●。

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 (列表；图表；参考；听；历史；文本；内部格式)

	抵消	`1,3`
	评论	`的四倍（x，y，z，w）A328149型是一组满足x^3+y^3+z^3=w^3的正整数。`
	链接	`米歇尔·马库斯，n=1..10000时的n，a（n）表`
	例子	`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：` `其他的` `传真：` `日期：` `日期：` `日期：` `日期：` `如果它>0，那么` printf（`%d，`，it）： `其他fi：` `日期：`
	数学	`nq[n_]：=如果[Mod[n，6]>0，0，块[{t，u，v，c=0，d=除数[n]，m}，m=长度@d；做[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日`
	交叉参考	`囊性纤维变性。A027750型,A096545号,A328149型,A330894型.` `上下文中的序列：A224713号 A357427飞机 A168557号A194320型 A231555型 A120425号` `相邻序列：A328201型 A328202型 A328203型A328205型 A328206型 A328207型`
	关键词	`非n`
	作者	`米歇尔·拉格诺2020年6月7日`
	状态	`经核准的`