OFFSET
1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
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
KEYWORD
nonn,base
AUTHOR
Alexander R. Povolotsky, Jul 28 2011
STATUS
approved