login
A193497
a(n) = 1, if digit n+1 of e is greater than or equal to digit n of e, else 0.
1
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, 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, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1
OFFSET
1
COMMENTS
If A001113(n+1) >= A001113(n) then a(n)=1, else a(n)=0.
LINKS
EXAMPLE
a(1) = 1 because A001113(2)=7 > A001113(1)=2.
MAPLE
N:= 100: # to get a(1) to a(n)
q:= 3:
S:= convert(evalf[N+q](exp(1)/10), string):
while S[N+1..N+q] = StringTools:-Fill("0", q) do
q:= q+1;
S:= convert(evalf[N+q](exp(1)/10), string):
od:
seq(`if`(S[i+1]>S[i], 1, 0), i=1..N); # Robert Israel, Jan 09 2015
MATHEMATICA
nn = 100; d = RealDigits[N[E, nn]][[1]]; Table[Boole[d[[n + 1]] >= d[[n]]], {n, nn - 1}] (* T. D. Noe, Jul 29 2011 *)
CROSSREFS
Cf. A001113 (decimal expansion of e).
Sequence in context: A166698 A250299 A361122 * A260390 A179758 A287795
KEYWORD
nonn,base
AUTHOR
STATUS
approved