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

 

标志


提示
问候整数序列的在线百科全书!)
A252665 写出n=a=b*c*d*e的方法数为1 <a=<=b<=c<=d<=e<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, 7, 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

评论

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

也一样开始A00 1055,但不同于n=64,…

链接

Michael De Vliegern,a(n)n=1…10000的表

Michael De Vlieger记录和第一位置记录

例子

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

枫树

用(纽曼理论):

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,5)

结束:

SEQ(A(n),n=1…100);阿洛伊斯·P·海因茨8月31日2017

Mathematica

表[c=0;do[i]=j <=j<=k<=m & & j*k*L*m==n,c++ ],{i,t=除数[n] },{j,t},{k,t},{l,t},{m,t};c,{n,90 }

(*第二程序:*)

=,[n],i,t]=[n=i,t]=1, 1,如果[t== 1,布尔[n[d,d,t- 1 ],{d,选择[除数@ n,α< < i & ] }] ],[b] [y],y],5 ]和@应用[倍,幂@ @ ]排序[因子整数[α],α1 [[2 ] ]>2 [ [2 ] ] ],120 ](*)B[N]米迦勒·德利格勒8月31日2017后让弗兰A218320*)

交叉裁判

囊性纤维变性。A00 1055A03836A218320.

语境中的顺序:A326334 A218320 A305254*A00 1055 A3266 A77692

相邻序列:A252662 A252663 A252664*A252666 A252667 A252668

关键词

诺恩

作者

米歇尔拉格瑙12月20日2014

地位

经核准的

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

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

最后修改11月18日16:25 EST 2019。包含329264个序列。(在OEIS4上运行)