编辑

经核准的

克拉克 金伯利 和 Alois P.Heinz，<a href=“/A248824号/b248824.txt“>n表，n=1..1000时a（n）

经核准的

编辑

Clark Kimberling和Alois P.Heinz，<a href=“/A248824号/第248824页_1.txt“>n，a（n）表，n=1..1000</a>（克拉克·金伯利的前400个术语）

编辑

经核准的

OEIS服务器：已安装新的b文件b248824.txt。旧的b文件现在是b248824_1.txt。

整数的数目k^6除以1*2!*3!*...*n个!!.

克拉克·金伯利 和 阿洛伊斯 对.亨氏（Heinz），<a href=“/A248824号/第248824页_1.txt“>n表，n=1时为a（n）。。4001000</年>> (第一 400 条款 从 克拉克 金伯利)

b： =proc（n）选项记忆；添加（i[2]*x^numtheory[pi]（i[1]），

i=ifactors（n）[2]）+`if`（n=1，0，b（n-1））

结束时间：

c： =proc（n）选项记忆；b（n）+`if`（n=1,0，c（n-1））结束：

a： =n->（p->mul（iquo（系数（p，x，i），6）+1，i=1..度（p）））（c（n））：

seq（a（n），n=1..30）#阿洛伊斯·海因茨，2014年10月16日

检验过的

编辑

提出

检验过的

编辑

提出

m=6；t吨=表[t[m，n]，{n，1，z}](*A248824号*)

分配编号 属于 整数 k个^6 对于那个 克拉克分 金伯利1!*2!*三!*...*n个!

1, 1, 1, 1, 2, 3, 6, 8, 18, 42, 64, 200, 432, 546, 960, 3888, 6000, 15180, 29952, 38976, 67200, 285600, 393984, 1632960, 3175200, 4165392, 6105600, 38413440, 55339200, 114048000, 205632000, 280219500, 448156800, 2621445120, 3777725952, 12940849152

1,5

克拉克·金伯利（Clark Kimberling），<a href=“/A248824号/b248824.txt“>n表，n=1..400时为a（n）</a>

a（7）计算这些整数k^6除以125411328000=A000178号（6） ：1，64，729，4096，46656，2985984，这些是k^6表示k=1，2，3，4，6，12。

z=40；p[n_]：=乘积[k！，{k，1，n}]；

f[n_]：=f[n]=系数整数[p[n]]；

r[m_，x_]：=r[m，x]=m*楼层[x/m]

u[n_]：=表[f[n][[i，1]]，{i，1，长度[f[n]}]；

v[n_]：=表[f[n][[i，2]]，{i，1，长度[f[n]]}]；

t[m_，n_]：=应用[次数，1+r[m，v[n]]/m]

m=6；t=表格[t[m，n]，{n，1，z}](*A248824号*)

囊性纤维变性。A000178号,A248784型,A248821型,A248822型,A248823型.

分配

非n,容易的

克拉克·金伯利2014年10月15日

经核准的

编辑

瓦茨拉夫·科特索维奇：不要对函数和变量使用相同的标识符“t”：t=表[t[……不可能再次运行同一程序（或使用不同的z）。

分配给克拉克·金伯利

分配

经核准的