%I#23 2017年2月25日15:44:11
%S 1,0,1,0,1,0,1,0,1,1,0,0,1,1,1,1,1,0,11,0,10,0,1,0,1,
%T 1,0,1,0,1,0,1,1,0,1,0,1,1,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,
%U 0,1,0,0,1,0,1,1,0,1,1,0,1,1,0,1,1,1
%N a(N)=1,如果e的数字N+1大于或等于e的数字N,则为0。
%C如果A001113(n+1)>=A001113。
%H G.C.Greubel,n表,n=1..5000的a(n)</a>
%e a(1)=1,因为A001113(2)=7>A001113。
%p N:=100:#得到a(1)到a(N)
%p q:=3:
%p S:=转换(evalf[N+q](exp(1)/10),字符串):
%p while S[N+1..N+q]=字符串工具:-Fill(“0”,q)do
%pq:=q+1;
%p S:=转换(evalf[N+q](exp(1)/10),字符串):
%日期:
%p序列(`if`(S[i+1]>S[i],1,0),i=1..N);#_罗伯特·伊斯雷尔(Robert Israel),2015年1月9日
%t nn=100;d=实际数字[N[E,nn]][[1];表[Boole[d[[n+1]]>=d[[n]]],{n,nn-1}](*_T.d.Noe_,2011年7月29日*)
%Y参考A001113(e的十进制扩展)。
%K nonn,基础
%O 1号机组
%A_Alexander R.Povolotsky,2011年7月28日
|