登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A218320年 把n写成n=a*b*c*d,其中1<=a<=b<=c<=d<=n的方法。 10
1、1、1、1、1、2、1、2、1、3、2、2、1、4、1、2、2、4、1、2、2、2、5、1、4、4、1、4、2、2、2、1、7、2、2、2、2、9、1、2、9、1、7、7、1、5、1、4、4、4、11、2、11、2、11、2、2、4、4、4、2、4、4、1、7、2、7、7、7、7、7、7、7、2、2、2、1、11、1、2、4、2、5、5、1、4、2、5、1、5、5、1、15、1、1、1、1、1、1、1、1 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,我们有a(p^n)=A001400(n) ,将n划分为最多4个部分的数目。-海因茨2012年11月3日

链接

阿洛伊斯·P·海因茨,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。

枫木

对于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:

#第二个枫树计划

带(数字):

b: =proc(n,i,t)选项记忆;

如果(n=1,1,`if`(t=1,`if`(n<=i,1,0),

n x,d-x,选择(d/b),除数(d/b)

结束:

a: =proc(n)局部l,m;

l:=排序(因子(n)[2],(x,y)->x[2]>y[2]);

m:=mul(i素数(i)^l[i][2],i=1..nops(l));

b(米,米,4)

结束:

顺序(a(n),n=1..100)#海因茨2012年11月3日

数学

b[n,i,t_u]:=b[n,i,t]=如果[n==1,1,如果[t==1,如果[n<=i,1,0],Sum[b[n/d,d,t-1],{d,选择[除数[n],\<=i&]]];

a[n]:=(l=Sort[FactorInteger[n],#1[[2]]>#2[[2]&];m=乘以@@Power@@@l;b[m,m,4]);

阵列[100,a](*让·弗朗索瓦·阿尔科弗2017年3月22日,之后海因茨*)

交叉引用

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

上下文顺序:A317791型 A318559型 A326334型*A305254型 邮编:A252665 A001055型

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

关键字

作者

米歇尔·拉格诺2012年10月25日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月3日20:08。包含336201个序列。正在运行OE4(运行)