%我#2020年9月17日19:02:20
%S 1,5,13,29,615732621671723101886373507818750699263677,
%电话:26040893931497572273674852374851311096478572528144654909,
%电话:1655836083814404615153259902173292133189240584765758728709586916383380118077
%N将1/e写为二进制分数;从左到右阅读,每当出现1时,请注意从1向左读取形成的整数。然后将这些整数从二进制转换为十进制。
%H Harvey P.Dale,n表,n=0..1000的a(n)</a>
%F a(n)=A099969(n)/2.-_米歇尔·马库斯(Michel Marcus),2013年11月3日
%e 1/e=0.367879441171442321595523770161460867445811131031767834507…=0.0111100010101010110001110110011111001111110001101111二进制。
%t d=100;l=第一个[RealDigits[N[1/E,d],2]];Do[m=取[l,n];k=长度[m];如果[m[[k]]==1,打印[FromDigits[Reverse[m],2]],{n,1,d}](*_Ryan Propper_,2005年8月18日*)
%t模[{nn=50,e},e=RealDigits[1/e,2,50][1];表[If[e[[n]]==0,Nothing,FromDigits[Reverse[Take[e,n]],2],{n,nn}]](*_Harvey P.Dale_,2020年9月17日*)
%Y参见A068985、A099969、A099971、A099972、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_的更多条款
%E定义由Harvey P.Dale_修订,2020年9月17日
|