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

 


第32432页
避免图案111的n的组成的数目。
14
1, 1, 2, 3, 7, 11, 21, 34, 59, 114, 178, 284, 522, 823, 1352, 2133, 3739, 5807, 9063, 14074, 23639, 36006, 56914, 87296, 131142, 214933, 324644, 487659, 739291, 1108457, 1724673, 2558386, 3879335, 5772348, 8471344, 12413666, 19109304, 27886339, 40816496
抵消
0,3
评论
n组成部分的多重数<=2。
链接
例子
a(4)=7:[4],[3,1],[2,2],[1,3],[2,1,1],[1,2,1],[1,1,2]。
a(5)=11:[5],[4,1],[3,2],[2,3],[1,4],[3,1,1],[2,2,1],[1,1,3]、[2,1,2]、[1,2,2]、[1,2,2]。
a(6)=21:[6]、[4,2]、[3,3]、[5,1]、[2,4]、[1,5]、[2,1,3],[1,2,3]、[1,1,4],[4,1,1],[3,2,1],[2,3,1]、[1,4,1]、[3,1,2],[1,2,1]、[2、1,2,1]、[2,1,1]、[1、1,2]、[1,1、2]、[2,2,1,2]。
MAPLE公司
b: =proc(n,i,p)选项记住`如果`(n=0,p!,`if`(i<1,0,
添加(b(n-i*j,i-1,p+j)/j!,j=0..分钟(n/i,2))
结束时间:
a: =n->b(n$2,0):
seq(a(n),n=0..50);
数学
f[list_]:=应用[And,Table[Count[list,i]<3,{i,1,Max[list]}];
g[list_]:=长度[list]/应用[Times,Table[Count[list,i]!,{i,1,最大值[list]}]];
a[n_]:=如果[n==0,1,Total[Map[g,Select[Integer Partitions[n],f]]];
表[a[n],{n,0,35}](*杰弗里·克雷策,2013年11月25日,更新人Jean-François Alcover公司2023年11月20日*)
交叉参考
囊性纤维变性。A000726号(隔墙避开111),A032020型(模式11),A128695号(相邻图案111)。
第k列=第2列,共列A243081型.
分区的情况按A004709号.
模式的版本是A080599号.
(1,1,1)-避免分区的计算方法为32464英镑.
(1,1,1)匹配版本为A335455型.
成分匹配的图案按A335456飞机.
基本指数的版本是A335511型.
(1,1,1)-避免成分的排序依据A335513型.
关键词
非n
作者
阿洛伊斯·海因茨2013年11月23日
状态
经核准的

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

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

上次修改时间:2024年9月23日00:23 EDT。包含376140个序列。(在oeis4上运行。)