OFFSET
1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = if A095916(n) < 0 then 0, otherwise 1. - Reinhard Zumkeller, Mar 12 2015
MATHEMATICA
nn = 100; d = RealDigits[N[Pi, nn]][[1]]; Table[Boole[d[[n + 1]] >= d[[n]]], {n, nn - 1}] (* T. D. Noe, Jul 29 2011 *)
PROG
(Haskell)
a193496 = fromEnum . (>= 0) . a095916 -- Reinhard Zumkeller, Mar 12 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alexander R. Povolotsky, Jul 28 2011
STATUS
approved