%I #23 Feb 25 2017 15:44:11
%S 1,0,1,0,1,0,1,0,1,0,1,1,0,1,1,0,1,1,0,1,0,1,1,0,0,1,0,1,1,0,1,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,1,0,1,0,0,1,1,0,1,0,1,
%U 0,1,0,0,1,1,0,1,0,1,0,1,0,1,1,0,1,1
%N a(n) = 1, if digit n+1 of e is greater than or equal to digit n of e, else 0.
%C If A001113(n+1) >= A001113(n) then a(n)=1, else a(n)=0.
%H G. C. Greubel, <a href="/A193497/b193497.txt">Table of n, a(n) for n = 1..5000</a>
%e a(1) = 1 because A001113(2)=7 > A001113(1)=2.
%p N:= 100: # to get a(1) to a(n)
%p q:= 3:
%p S:= convert(evalf[N+q](exp(1)/10),string):
%p while S[N+1..N+q] = StringTools:-Fill("0",q) do
%p q:= q+1;
%p S:= convert(evalf[N+q](exp(1)/10),string):
%p od:
%p seq(`if`(S[i+1]>S[i],1,0),i=1..N); # _Robert Israel_, Jan 09 2015
%t nn = 100; d = RealDigits[N[E, nn]][[1]]; Table[Boole[d[[n + 1]] >= d[[n]]], {n, nn - 1}] (* _T. D. Noe_, Jul 29 2011 *)
%Y Cf. A001113 (decimal expansion of e).
%K nonn,base
%O 1
%A _Alexander R. Povolotsky_, Jul 28 2011