%I#3 2012年3月30日17:31:18

%S 2787,6,7,23,2,3,3,8,2,2,5,8,2,18,9,10413,8,3,24019,14,4,2,2,11，

%T 21,4,2,3,6,2,11,3,5,19,2,6,2,4,32,2,2,5,6,31,6,7,7,2,32,20,9.10900,2,2,2，

%U 2,97,5,2,8,64,3,13,3,2,6,7,15,32666,7,8,3,14,3,2,6,5,92,17,31,4241,78,3

%N对k进行编号，使得Pi的下一个k二进制数字是没有前导零的奇数素数。

%C分区Pi的二进制数字串，这样每个分区都以1开始和结束（因此没有前导或尾随的零），并且每个这样的分区都是质数。

%C Pi_2=110010100011111110110101000100010001011010001100001000…_2（A004601）。

%C如果允许2作为成员，则序列开始：2787,2,5,6,2,2,2,39,5,8,2,18,9,10,2153,2,6,2,18,7,12,2,2,2，。。。。

%e a（1）表示二进制数110010100…（2767项）。。。0100000011，等于十进制数7339860347…（819项）。。。8308318467是质数。

%e a（2）表示二进制数101001，它等于十进制数41，即素数。

%t ps=First@RealDigits[Pi，212010]；lst={}；Do[k=1；While[fd=FromDigits[Take[ps，k]，2]；EvenQ@fd公司|ps[[k+1]]==0||！底漆Q@fd，k++]；附录[lst，k]；ps=下降[ps，k]，{n，87}]；第一次

%Y参见A004601、A068425、A117721、A065987、A119017。

%K基，nonn

%O 1，1

%A _Robert G.Wilson v_，2006年7月24日