%I#16 2018年11月17日21:23:15

%S 1,5,13,45173836573901204973467117991405518570913574317，

%电话：8068318121490090912886427333436126381773109367716321028269，

%电话：3350089745367860635821136581255763359264451785847554221

%N将1/sqrt（2）作为二进制分数写入；从左到右阅读，每当出现1时，请注意从1向左读取形成的整数。

%H Harvey P.Dale，n表，n=0..1000的a（n）</a>

%e 1/sqrt（2）=0.707106781186547524400084436210484903928359376885…=0.1011010000010111110001111001100110011001101100110011001010010001000101100111101100010011011二进制。

%t d=100；l=第一个[RealDigits[N[1/Sqrt[2]，d]，2]]；Do[m=取[l，n]；k=长度[m]；如果[m[[k]]==1，打印[FromDigits[Reverse[m]，2]]，{n，1，d}]（*_Ryan Propper_，2005年8月18日*）

%t模块[｛rd=RealDigits[1/Sqrt[2]，2,50][[1]]，pos}，pos=Flatten[位置[rd，1]]；表[FromDigits[Reverse[Take[rd，n]]，2]，{n，pos}]]（*哈维·P·戴尔，2013年7月29日*）

%Y参见A010503、A099969、A099970、A099971、A099973、A099974。

%K nonn，简单

%0、2

%A _N.J.A.Sloane，2004年11月13日，基于Artur Jasinski的信件，2003年3月25日

%E 2005年8月18日_Ryan Propper_的更多条款