login
A193496
a(n) = 1 iff digit n+1 of Pi is >= digit n, otherwise a(n) = 0. We consider 3 to be digit 1 of Pi.
3
0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1
OFFSET
1
FORMULA
If A000796(n+1) >= A000796(n) then a(n)=1, otherwise a(n)=0.
a(n) = if A095916(n) < 0 then 0, otherwise 1. - Reinhard Zumkeller, Mar 12 2015
EXAMPLE
a(1) = 0 because A000796(2)=1 < A000796(1)=3.
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
Cf. A000796.
Sequence in context: A341389 A188027 A359333 * A284533 A286665 A096270
KEYWORD
nonn,base
AUTHOR
STATUS
approved