A252665-OEIS公司

A252665型

用1<=a<=b<=c<=d<=n将n写成n=a*b*c*d*e的方法的数量。

1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 5, 1, 4, 1, 4, 2, 2, 1, 7, 2, 2, 3, 4, 1, 5, 1, 7, 2, 2, 2, 9, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 12, 2, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 11, 1, 2, 4, 10, 2, 5, 1, 4, 2, 5, 1, 16, 1, 2, 4, 4, 2, 5, 1, 12, 5, 2, 1, 11, 2

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,4

开头与相同，但不同于A218320型其中a（n）=A218320型（n） n=1..31。n的第一个值使得a（n）不同于A218320型（n）分别为32、48、64、72、80。

启动方式也与A001055号，但与n=64不同。。。

链接

迈克尔·德弗利格，n=1..10000时的n，a（n）表

迈克尔·德弗利格，记录和记录的第一个位置

例子

a（12）=4，因为我们可以写12=1*1*1*12=1*1*1*2*6=1*1*1*1*3*4=1*1*2x2*3。

MAPLE公司

带有（数字理论）：

b： =proc（n，i，t）选项记住；

`if`（n=1，1，`if`（t=1，`if'（n<=i，1，0），

加法（b（n/d，d，t-1），d=选择（x->x<=i，除数（n）））

结束时间：

a： =proc（n）局部l，m；

l： =排序（ifactors（n）[2]，（x，y）->x[2]>y[2]）；

m： =mul（ithprime（i）^l[i][2]，i=1..nops（l））；

b（米、米、五）

结束时间：

seq（a（n），n=1..100）#阿洛伊斯·海因茨2017年8月31日

数学

表[c=0；Do[如果[i<=j<=k<=l<=m&i*j*k*l*m==n，c++]，{i，t=Divisors[n]}，{j，t}，}；c、 {n，90}]

（*第二个节目：*）

b[n_，i_，t_]：=b[n，i，t]=如果[n==1，1，如果[t==1、Boole[n<=i]、总和[b[n/d，d，t-1]，{d，选择[Divisors@n，#<=i&]}]]；并行化@Array[b[#，#，5]&@Apply[Times，Power@@@Sort[FactorInteger[#]，#1[[2]]>#2[[2]&]]&，120](*迈克尔·德弗利格2017年8月31日之后Jean-François Alcover公司在A218320型*)

交叉参考

囊性纤维变性。A001055号,A034836号,A218320型.

上下文中的序列：A218320型 A355030型 A305254型*A001055号 A335079型 A337093型

相邻序列：A252662型 A252663型 A252664型*A252666型 A252667个 A252668型

关键词

非n

作者

米歇尔·拉格诺2014年12月20日

状态

经核准的