登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
A218320 写n=a*b*c*d的方法的数目为1 <a=<=b<=c<=d<n=n。
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, 6, 2、2, 2, 9、2, 2, 9、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

1,4

评论

开始一样,但不同于A00 1055. n的第一个值,使得a(n)不同于A00 1055(n)分别为32, 48, 64、72, 80、….

A的值对于具有相同质素签名的所有数字n都是相同的。对于素数p,我们有一个(p^ n)=A000 1400(n)n的划分数最多为4个部分。-阿洛伊斯·P·海因茨03月11日2012

链接

Alois P. Heinzn,a(n)n=1…10000的表

例子

A(12)=4,因为我们可以写12=1×1×1×12=1×1×2*6=1** * * * * *=* * * * * * * * *。

枫树

对于n从1到90 D:对于A从1到n DO:对于B从A到N DO:对于C从B到n DO:对于D从C到N DO:如果A*B*C*D= N,那么T1: = T1+1:否则FI:OD:OD:OD:PROTF(‘%D,’,T1):OD:

第二枫叶计划

用(纽曼理论):

B: = PROC(n,i,t)选项记住;

‘如果’(n=1, 1,‘If’’(t=1,‘If’’(n<i,1, 0));

B(n/d,d,t-1),d=选择(x->x<=i,因子)

结束:

A=:PROC(n)局部L,m;

L:=排序(IFANSTER(n))[2 ],(x,y)-> x〔2〕>Y〔2〕;

M=:MUL(IthPrimy(i)^ L[i]〔2〕,i=1…NOPS(L));

B(m,m,4)

结束:

SEQ(A(n),n=1…100);阿洛伊斯·P·海因茨03月11日2012

Mathematica

B[N],II,TY]:=B[n,i,t]=[n=1, 1,如果[t== 1,如果[n<=i,1, 0 ],和[b[n/d,d,t1],{d,选择[除数[n],η< <i&[}] ] ];

a [n]:=(L=排序[因子整数[n],α1 ] [〔2〕>2〕〔〔2〕〕;m=倍@ @幂@ @ l;b [ m,m,4〕;

数组[ A,100 ](*)让弗兰3月22日2017后阿洛伊斯·P·海因茨*)

交叉裁判

囊性纤维变性。A00 1055A03836.

语境中的顺序:A317791 A318599 A326334*A305254 A252665 A00 1055

相邻序列:A218317 A218318 A218319*A218321 A218322 A218323

关键词

诺恩

作者

米歇尔拉格瑙10月25日2012

地位

经核准的

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

许可协议、使用条款、隐私政策。.

最后修改12月16日05:32 EST 2019。包含330016个序列。(在OEIS4上运行)