登录
OEIS由支持OEIS基金会的许多慷慨捐助者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A209818型 每个部分<=n的3n分区数。
1, 4, 12, 34, 84, 199, 436, 919, 1845, 3590, 6751, 12384, 22142, 38797, 66634, 112540, 187013, 306421, 495332, 791131, 1249153, 1951915, 3019969, 4630063, 7037286, 10610240, 15874998, 23582081, 34791668, 50999319, 74297620, 107608848, 154986104, 222037997 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
此外,将4n划分为n个部分的分区数-Seiichi Manyama先生2018年5月7日
链接
阿洛伊斯·海因茨,n=1..1000时的n,a(n)表
配方奶粉
对于n>3,a(n)=A000041号(3*n)-A000070型(2*n-1)+A000097号(n-3)-瓦茨拉夫·科特索维奇2015年5月25日
a(n)~exp(Pi*sqrt(2*n))/(12*sqert(3)*n)-瓦茨拉夫·科特索维奇,2015年5月25日
例子
由6个部分组成的4个分区,其中部分<3:
2+2+2, 2+2+1+1, 2+1+1+1+1, 1+1+1+1+1+1.
发件人Seiichi Manyama先生2018年5月7日:(开始)
n |将4n划分为n个部分
--+-------------------------------------------
1 | 4;
2 | 7+1, 6+2, 5+3, 4+4;
3 | 10+1+1, 9+2+1, 8+3+1, 8+2+2, 7+4+1, 7+3+2,
| 6+5+1, 6+4+2, 6+3+3, 5+5+2, 5+4+3, 4+4+4; (结束)
MAPLE公司
b: =proc(n,i)选项记忆;
`如果`(n=0,1,`if`(i<1,0,b(n,i-1)+`if`)
结束时间:
a: =n->b(3*n,n):
seq(a(n),n=1..50)#阿洛伊斯·海因茨2012年7月9日
数学
f[n_]:=长度[Select[Integer Partitions[3n],First[#]<=n&]];表[f[n],{n,1,25}](*A209818型*)
表[级数系数[积[1/(1-x^k),{k,1,n}],{x,0,3*n}](*瓦茨拉夫·科特索维奇2015年5月25日*)
b[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,b[n、i-1]+如果[i>n,0,b[n-i,i]]];a[n]:=b[3*n,n];表[a[n],{n,1,50}](*Jean-François Alcover公司,2015年10月28日,之后阿洛伊斯·海因茨*)
表[长度@整数分区[4n,{n}],{n,25}](*弗拉基米尔·雷谢特尼科夫2016年7月24日*)
交叉参考
囊性纤维变性。A209817型.
关键字
非n
作者
克拉克·金伯利2012年3月13日
扩展
更多术语来自阿洛伊斯·海因茨2012年7月9日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月25日10:15。包含373701个序列。(在oeis4上运行。)