|
%I #24 Apr 10 2021 02:02:48
%S 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,
%T 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,
%U 1,0,0,1,0,1,0,0,0,1,1,1,0,0,0,1,0,1
%N 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.
%H Reinhard Zumkeller, <a href="/A193496/b193496.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a>
%F If A000796(n+1) >= A000796(n) then a(n)=1, otherwise a(n)=0.
%F a(n) = if A095916(n) < 0 then 0, otherwise 1. - _Reinhard Zumkeller_, Mar 12 2015
%e a(1) = 0 because A000796(2)=1 < A000796(1)=3.
%t nn = 100; d = RealDigits[N[Pi, nn]][[1]]; Table[Boole[d[[n + 1]] >= d[[n]]], {n, nn - 1}] (* _T. D. Noe_, Jul 29 2011 *)
%o (Haskell)
%o a193496 = fromEnum . (>= 0) . a095916 -- _Reinhard Zumkeller_, Mar 12 2015
%Y Cf. A000796.
%Y Cf. A095916, A030658.
%K nonn,base
%O 1
%A _Alexander R. Povolotsky_, Jul 28 2011
|
