%I#7 2014年9月28日11:28:46

%S 2,5,2,7,5,2,9,7,16,2,10,13,22,2,11,16,26,87,2,12,22,30,49,94，

%电话196,2,13,26,39,67137438776,2,15,30,43,79196505783776,2,16,39，

%电话：49,873455121171783783,2,21,43,67,9037167711841171

%N矩形数组：T（N，k）是块s（2）在s=A004713中的位置。。第k次出现s（n+1）。

%假设T的每一行都是无限的，每一行包含下一行作为适当的子序列。A246340的第1行和A246341的第1行对正整数进行分区。

%e A246339给出了1/sqrt（2）的基2展开式中0的位置，其起始位置为：1,0,1,1,0,1,0,0,0，0,0,1,1,1。对于n=1，块s（2）。。s（2）是简单的0，出现在位置1,3,4,6,8，。。。如T的第1行。对于n=5，块s（2）。。s（6）为0,1,1,0,1，出现在位置2,87,94137。。。

%e前6行：

%e 2。。5 ... 7 ... 9 ... 10 .. 11 .. 12 .. 13 ...

%e 2。。5 ... 7 ... 13 .. 16 .. 22 .. 26 .. 30 ...

%e 2。。16 .. 22 .. 26 .. 30 .. 39 .. 43 .. 49 ...

%e 2。。22 .. 26 .. 49 .. 67 .. 79 .. 87 .. 90 ...

%e 2。。87 .. 94 .. 137 . 196 . 345 . 371 . 438 ...

%e 2。。196 .438 . 505 . 512 . 677 . 776 . 783 ...

%tz=200000；s=实际数字[1/Sqrt[2]，2，z][[1]；压扁[位置[s，0]]；

%tb[m_，n_]：=b[m，n]=取[s，{m，n}]；z1=150000；z2=12；

%t t[k_]：=t[k]=取[Select[Range[1，z1]，b[#，#+k]==b[2，2+k]&]，

%tz2]；列[表[t[k]，{k，0，z2}]]（*A246341，数组*）

%t w[n，k]：=t[n][[k+1]]；表[w[n-k，k]，{n，0，z2-1}，{k，n，0，

%t-1}]//展平（*A246341，数组*）

%Y参考A004713，A246340。

%K nonn，简单，tabl

%O 1,1号机组

%A_Clark Kimberling_，2014年8月24日