%I#9 2020年4月5日21:21:47

%S 1,3,2,7,5,4,15,6,9,8,31,12,17,16,63,11,18,24,33,32127,13,19,34，

%电话：48,65,64255,14,20,35,66,96129128511,21,25,40，67130192257256，

%U 1023,22,28,49,801312583845135122047,23,36,56,97160259

%N矩形数组，通过反对偶：第N行给出以2位数字d（m）、d（m-1）、…、，。。。，d（0）具有n作为0的最大运行长度。

%每个正整数只出现一次，所以作为一个序列，这是正整数的置换。

%e西北角：

%电子1 3 7 15 31 63 127

%e 2 5 6 10 11 13 14

%e 4 9 12 18 19 20 25

%e 8 17 24 34 35 40 49

%电子16 33 48 66 67 80 97

%电子邮箱：32 65 96 130 131 160 193

%e（电子）***

%e以72为基数的2位数字：1,0,0,1,0,0,0，其中00和000为0，因此72在第3行。

%t b=2；s[n_]：=拆分[Integer Digits[n，b]]；

%t m[n_，d_]：=联合[Select[s[n]，MemberQ[#，d]&]]

%t h[n_，d_]：=最大值[Map[长度，m[n，d]]

%tz=6000；w=t[d_]：=表[h[n，d]，{n，1，z}]/-无穷大->0

%t TableForm[表格[扁平[位置[t[0]，d]]，{d，0，8}]]（*A297932数组*）

%t u[d_]：=压平[位置[t[0]，d]]

%tv[d，n]：=u[d][[n]]；

%t表格[v[n，k-n+1]，{k，0，11}，{n，0，k}]//扁平（*A297932序列*）

%Y参见A297769和A297933。

%K nonn、base、easy、tabl

%O 1,2号机组

%A_Clark Kimberling_，2018年1月26日