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

 


修订历史记录A329746型

(粗体、蓝色下划线文本是附加;褪色的红色下划线文本是删除.)

显示所有更改。
按行读取的三角形,其中T(n,k)是n>0的整数分区数,具有运行阻力k,0<=k<=n-1。
(历史;已发布版本)
#10通过迈克尔·德弗利格2023年1月19日星期四22:35:17 EST
状态

提出

经核准的

#9通过安德鲁·霍罗伊德2023年1月19日星期四22:31:59 EST
状态

编辑

提出

#8通过安德鲁·霍罗伊德2023年1月19日星期四22:31:52 EST
链接

安德鲁·霍罗伊德,<a href=“/A329746型/b329746.txt“>n表,n=1..1275时a(n)(第1..50行)

黄体脂酮素

(PARI)\\rr(p)给出了分区的运行阻力。

rr(p)={my(r=0);while(#p>1,my(L=List(),k=0));对于(i=1,#p,if(i==#p||p[i]<>p[i+1],listput(L,i-k);k=i));p=Vec(L);r++);r}

行(n)={my(v=向量(n));对于部分(p=n,v[1+rr(Vec(p))]++);v}

{用于(n=1,10,打印(行(n))}\\安德鲁·霍罗伊德2023年1月19日

状态

经核准的

编辑

#7通过苏珊娜·库勒美国东部时间2019年11月21日星期四10:43:56
状态

提出

经核准的

#6通过古斯·怀斯曼2019年11月21日星期四10:14:28 EST
状态

编辑

提出

#5通过古斯·怀斯曼美国东部时间2019年11月21日星期四10:12:54
数学

运行[q_]:=如果[长度[q个]==1,0,长度[NestWhileList[Length/@Split[#]&,q,Length[#]>1&]]-1];

#4通过古斯·怀斯曼2019年11月21日星期四10:07:31 EST
链接

Claude Lenormand,<a href=“/A318921型/a318921.pdf“>Deux transformings sur les mots</a>,预印本,5页,2003年11月17日。

#3通过古斯·怀斯曼2019年11月21日星期四03:48:09 EST
交叉参考

一个类似的不变量是频率深度, ; 看见A182850型, A225485型, A323014型,A325280型.

囊性纤维变性。A098504号,A182850型, A225485型, A242882型,A318928型,325410英镑,A329747型.

#2通过古斯·怀斯曼美国东部时间2019年11月21日星期四03:46:38
名称

分配 对于 格斯 怀斯曼三角形 阅读 通过 哪里 T型(n个,k个) 这个 属于 整数 分区 属于 n个 > 0 具有 -抵抗 k个, 0 <= k个 <= n个 - 1.

数据

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 0, 1, 3, 4, 3, 0, 0, 1, 1, 4, 8, 1, 0, 0, 1, 3, 6, 10, 2, 0, 0, 0, 1, 2, 8, 13, 6, 0, 0, 0, 0, 1, 3, 11, 20, 7, 0, 0, 0, 0, 0, 1, 1, 11, 29, 14, 0, 0, 0, 0, 0, 0, 1, 5, 19, 31, 20, 1, 0, 0, 0, 0, 0, 0

抵消

1,8

评论

对于获取有限序列的运行长度序列的操作,运行阻力被定义为达到单个子所需的应用程序数。

例子

三角形开始:

1

1 1

1 1 1

1 2 1 1

1 1 2 3 0

1 3 4 3 0 0

1 1 4 8 1 0 0

1 3 6 10 2 0 0 0

1 2 8 13 6 0 0 0 0

1 3 11 20 7 0 0 0 0 0

1 1 11 29 14 0 0 0 0 0 0

1 5 19 31 20 1 0 0 0 0 0 0

1 1 17 50 30 2 0 0 0 0 0 0 0

1 3 25 64 37 5 0 0 0 0 0 0 0 0

1 3 29 74 62 7 0 0 0 0 0 0 0 0 0

行n=8统计以下分区:

(8) (44) (53) (332) (4211)

(2222) (62) (422) (32111)

(11111111) (71) (611)

(431) (3221)

(521) (5111)

(3311) (22211)

(41111)

(221111)

(311111)

(2111111)

数学

runsres[q_]:=如果[Length[q]==1,0,Length[NestWhileList[Length/@Split[#]&,q,Length[#]>1&]]-1];

表[Length[Select[Integer Partitions[n],runsres[#]==k&]],{n,10},{k,0,n-1}]

交叉参考

行总和为A000041号.

列k=1为A032741号.

列k=2为329745美元.

类似的不变量是频率深度,请参见A182850型,A225485型,A323014型,A325280型.

合成的版本是A329744型.

二进制字的版本是A329767型.

囊性纤维变性。A098504号,A242882型,A318928型,A325410型,A329747型.

关键词

分配

非n,

作者

古斯·怀斯曼2019年11月21日

状态

经核准的

编辑

#1通过古斯·怀斯曼2019年11月20日星期三08:35:56 EST
名称

分配给Gus Wiseman

关键词

分配

状态

经核准的

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

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

上次修改时间:2024年9月24日14:42 EDT。包含376200个序列。(在oeis4上运行。)