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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A057606号 行读取的三角形:T(n,k)=有k个孙子的二进制n元组u的数量,其中孙子是通过删除u的任意两个坐标获得的向量(n>=3,1<=k<=2^(n-2))。 2

%I#13 2013年7月13日12:02:34

%S 2,6,2,4,6,4,2,4,8,4,2,0,2,4,10,6,12,8,8,6,6,0,2,00,0,0,12,

%电话:8,16,14,16,12,12,12,6,4,8,0,0,2,0,00,0_0,0,0,0,0,12,0,0,

%U 14,10,20,22,24,22,26,18,16,12,16,12,0,4,10,0,02,0,0,10,0

%N行读取的三角形:T(N,k)=二进制N元组u的个数,正好有k个孙子,其中孙子是通过删除u的任意两个坐标获得的向量(N>=3,1<=k<=2^(N-2))。

%C行长度=2^(n-2),行总和=2^n。

%D N.J.A.Sloane,《关于单删失修正码》,摘自《代码与设计》(俄亥俄州哥伦布,2000),273-291,俄亥俄州立大学数学系。Res.Inst.出版物。,10,de Gruyter,柏林,2002年。

%H Reinhard Zumkeller,<a href=“/A057606/b057606.txt”>三角形的行数n=3..15,扁平</a>

%H N.J.A.斯隆,<A href=“http://neilsloane.com/doc/dijen.txt“>单删除更正代码</a>

%e 2,6;2,4,6,4; 2,4,8,4,8,4,2,0; ...

%o(哈斯克尔)

%o导入数据。列表(group、sort、nub、inits、tails)

%o a057606 n k=a057606_tabf!!(n-3)!!(k-1)

%o a057606_row n=a057606 _ tabf!!(n-3)

%o a057606_tabf=地图g$drop 3$

%o迭代(\xs->(map(0:)xs)++(map

%o g xss=映射长度$fill0$group$sort$map(length.del2)xss

%o其中fill0 uss=f0 uss[1..length xss`div`4]其中

%o f0 _[]=[]

%o f0[](j:js)=[]:f0[]js

%o f0 vss’@(vs:vss)(j:js)

%o|j==头部vs=vs:f0 vss js

%o |否则=[]:f0 vss的js

%o del2=零。(concatMap del1)。del1(删除1)

%o del1 xs=nub$

%o zipWith(++)(init$inits xs)(映射尾部$init$tails xs

%o——Reinhard Zumkeller,2012年4月30日

%Y参考A057607。

%K nonn,tabf,不错

%O 3,1

%A _N.J.A.Sloane,2000年10月8日

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

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

上次修改时间:美国东部夏令时2024年3月28日18:04。包含371254个序列。(在oeis4上运行。)