OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A131044号 按行读取的三角形T(n,k):T(n,k)是n组成k个部分的数量,使得至少两个相邻部分相等。 14
1, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 0, 4, 4, 1, 1, 1, 3, 8, 5, 1, 1, 0, 6, 14, 14, 6, 1, 1, 1, 6, 21, 32, 21, 7, 1, 1, 0, 7, 32, 55, 54, 28, 8, 1, 1, 1, 8, 38, 96, 116, 83, 36, 9, 1, 1, 0, 10, 54, 142, 222, 206, 120, 45, 10, 1, 1, 1, 9, 65, 211, 386, 438, 328, 165, 55, 11, 1 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,9
评论
合成为1部分的条件无效(有一个这样的合成)。
三角形=帕斯卡三角形(A007318号) -A106351号,第一列除外。
链接
阿洛伊斯·海因茨,行n=1..141,扁平
例子
T(5,3)=4,因为在5分为3部分的6个组成部分中,有4个组成部分重复一个部分,用(*)标记在各部分之间:
[ 3 1*1 ], [ 2*2 1 ], [ 1 3 1 ], [ 2 1 2 ], [ 1 2*2 ], [ 1*1 3 ].
三角形开始:
1;
1, 1;
1, 0, 1;
1, 1, 2, 1;
1, 0, 4, 4, 1;
1、1、3、8、5、1;
1, 0, 6, 14, 14, 6, 1;
1, 1, 6, 21, 32, 21, 7, 1;
...
MAPLE公司
b: =proc(n,h,t)选项记忆;
如果n<t,则0 elif n=0,则`if`(t=0,1,0)
否则添加(`if`(h=j,0,b(n-j,j,t-1)),j=1..n)fi
结束时间:
T: =(n,k)->`如果`(k=1,1,二项式(n-1,k-1)-b(n,-1,k)):
seq(seq(T(n,k),k=1..n),n=1..12)#阿洛伊斯·海因茨2013年2月13日
数学
b[n_,h_,t_]:=b[n,h,t]=其中[n<t,0,n==0,如果[t==0、1、0],为真,和[If[h==j,0,b[n-j,j,t-1]],{j,1,n}]];T[n_,k_]:=如果[k==1,1,二项式[n-1,k-1]-b[n,-1,k]];表[表[T[n,k],{k,1,n}],{n,1,12}]//扁平(*Jean-François Alcover公司2015年2月18日之后阿洛伊斯·海因茨*)
黄体脂酮素
(鼠尾草)
定义A131044号_r(n,k):
允许=λx:len(x)<=1或差异(x)为0
return len([c代表组成(n,长度=k)中的c,如果允许(c)])
# [D.S.麦克尼尔2011年1月6日]
交叉参考
囊性纤维变性。A106351号(没有两个相邻部分相等)。
关键词
非n,
作者
乔格·阿恩特2011年1月6日
状态
经核准的

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

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

上次修改时间:6月17日00:51 EDT 2024。包含373432个序列。(在oeis4上运行。)