登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A218320型 用1<=a<=b<=c<=d<=n将n写成n=a*b*c*d的方法的数量。 11
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, 1, 2, 2, 7, 1, 5, 1, 4, 4, 2, 1, 11, 2, 4, 2, 4, 1, 7, 2, 7, 2, 2, 1, 11, 1, 2, 4, 9, 2, 5, 1, 4, 2, 5, 1, 15, 1, 2, 4, 4, 2, 5, 1, 11, 5, 2, 1, 11, 2 (列表图表参考历史文本内部格式)
抵消
1,4
评论
开头与相同,但不同于A001055号.n的第一个值,使得a(n)不同于A001055号(n) 是32、48、64、72、80。
对于具有相同素数签名的所有数字n,a的值都相同。对于素数p,我们有一个(p^n)=A001400号(n) ,将n个分区的数量划分为最多4个部分-阿洛伊斯·海因茨2012年11月3日
链接
阿洛伊斯·海因茨,n=1..10000时的n,a(n)表
例子
a(12)=4,因为我们可以写出12=1*1*1*12=1*1*2*6=1*1*3*4=1*2*2*3。
MAPLE公司
对于n从1到90 do:t1:=0:对于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:od:printf(`%d,`,t1):od:
#第二个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(米,米,4)
结束时间:
seq(a(n),n=1..100)#阿洛伊斯·海因茨2012年11月3日
数学
b[n_,i_,t_]:=b[n,i,t]=如果[n==1,1,如果[t==1;如果[n<=i,1,0],总和[b[n/d,d,t-1],{d,选择[Divisors[n],#<=i&]}]];
a[n_]:=(l=Sort[FactorInteger[n],#1[[2]]>#2[2]]&];m=Times@@Power@@@1;b[m,m,4]);
数组[a,100](*Jean-François Alcover公司2017年3月22日之后阿洛伊斯·海因茨*)
交叉参考
囊性纤维变性。A001055号,A034836号.
关键词
非n
作者
米歇尔·拉格诺2012年10月25日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

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

上次修改时间:2024年4月19日16:08 EDT。包含371794个序列。(在oeis4上运行。)