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

 

标志
提示
(来自的问候整数序列在线百科全书!)
098743加元 将n划分为等分部分(即不划分n的部分)的数量。 31
1, 0, 0, 0, 0, 1, 0, 3, 1, 3, 3, 13, 1, 23, 10, 11, 9, 65, 8, 104, 14, 56, 66, 252, 10, 245, 147, 206, 77, 846, 35, 1237, 166, 649, 634, 1078, 60, 3659, 1244, 1850, 236, 7244, 299, 10086, 1228, 1858, 4421, 19195, 243, 17660, 3244, 12268, 4039, 48341, 1819, 27675 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
0,8
评论
当n是阶乘数或素数时,出现低水位线和高水位线似乎很合理:参见A260797型,A260798型.
一个(A000040型(n) )=A002865号(n) -1。
链接
阿洛伊斯·海因茨,n=0..1000时的n,a(n)表(前300项来自N.J.A.Sloane,后200项来自Reinhard Zumkeller)
例子
7=2+2+3=2+5=3+4,因此a(7)=3。
a(10)={7+3,6+4,4+3+3}=3,10的所有其他分区都包含至少一个除数(10、5、2或1)。
MAPLE公司
a:=[1,0,0,0,0];M: =300;对于从5到M的n,做t1:={seq(i,i=1..n)};t3:=t1减去除数(n);t4:=mul(1/(1-x^i),i在t3中);t5:=系列(t4,x,n+2);a: =[op(a),系数(t5,x,n)];od:a#N.J.A.斯隆2015年8月8日
#第二个Maple项目:
a: =proc(m)选项记忆;局部b;b: =程序(n,i)
选项记忆`如果`(n=0,1,`如果`(i<2,0,b(n,i-1)+
`如果`(irem(m,i)=0,0,b(n-i,min(i,n-i))))结束;b(百万美元)
结束时间:
seq(a(n),n=0..60)#阿洛伊斯·海因茨2018年3月11日
数学
a[m_]:=a[m]=模[{b},b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<2,0,b[n、i-1]+如果[Mod[m,i]==0、0、b[n-i,Min[i,n-i]]];b[m,m]];
表[a[n],{n,0,60}](*Jean-François Alcover公司2018年4月30日之后阿洛伊斯·海因茨*)
黄体脂酮素
(哈斯克尔)
a098743 n=p[nd|nd<-[1..n],mod n nd/=0]n,其中
p _ 0=1
p[]_=0
p ks’@(k:ks)m|m<k=0|否则=p ks’(m-k)+p ks m
--莱因哈德·祖姆凯勒2011年11月22日
(哈斯克尔)--带记忆
导入数据。MemoCombinators(memo3,整数)
a098743 n=a098743_列表!!n个
a098743_list=地图(\x->pMemo x 1 x)[0..]其中
pMemo=memo3积分积分p
p _ _ 0=1
p x k m | m<k=0
|mod x k==0=pMemo x(k+1)m
|否则=pMemo x k(m-k)+pMemo x(k+1)m
(PARI)a(n)={polcoef(1/prod(k=1,n,if(n%k,1-x^k,1)+O(x*x^n)),n)}\\安德鲁·霍罗伊德2018年8月29日
交叉参考
另请参见A057562号(相对重要的部分)。
关键字
非n
作者
扩展
a(0)已添加,偏移量已更改莱因哈德·祖姆凯勒2011年11月22日
建议的新定义措辞马克·勒布伦2015年8月7日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月24日04:14。包含371918个序列。(在oeis4上运行。)