A131044-OEIS公司

A131044号

行读取的三角形T（n，k）：T（n、k）是n组成k个部分的数量，以便至少两个相邻部分相等。

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, 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]]；表[Table[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号（没有两个相邻部分相等）。

上下文中的序列：A238125型 A062507年 A238750型*A246027型 A077875号 A198237号

相邻序列：A131041号 A131042号 A131043型*A131045型 A131046号 A131047号

关键词

非n,表

作者

乔格·阿恩特2011年1月6日

状态

经核准的