检验过的

已批准

提出

检验过的

编辑

提出

数字 n个 这样的k个那个 n个 划分分 A000793号(n个k个).

已批准

编辑

检验过的

已批准

提出

检验过的

编辑

提出

Reap[For[n=1，n<=40，n++，If[Divisible[Max[LCM@@@IntegerPartitions[n]]，n]，Sow[n]]][[2，1]]

（*或，对于大量术语：*）

b[n_，i_]：=b[n，i]=模[{p}，p=如果[i<1，1，素数[i]]；如果[n==0||i<1，1，Max[b[n，i-1]，表[p^j*b[n-p^j，i-1]{j，1，Log[p，n]//Floor}]]]；g[n_]：=b[n，如果[n<8，3，PrimePi[Ceiling[1.328*Sqrt[n*Log[n]//Floor]]]]；收获[For[k=1，k<=1000，k++，If[Divisible[g[k]，k]，Sow[k]]][[2，1]](*Jean-François Alcover公司2016年2月28日之后阿洛伊斯·海因茨*)

已批准

编辑

编辑

已批准

b： =proc（n，i）选项记忆；局部p；

p： =`if`（i<1，1，ithprime（i））；

`如果`（n=0或i<1，1，max（b（n，i-1），

seq（p^j*b（n-p^j，i-1），j=1..ilog[p]（n））

结束时间：

g： =n->b（n，`if`（n<8，3，numtheory[pi]（ceil（1.328*isqrt（n*ilog（n）））））：

a： =proc（n）选项记忆；局部k；

对于来自1+`if`（n=1,0，a（n-1））的k

而不是irem（g（k），k）=0做od；k个

结束时间：

seq（a（n），n=1..70）#阿洛伊斯·海因茨2013年5月22日