login
a(n) = 1, if digit n+1 of e is greater than or equal to digit n of e, else 0.
1

%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