login
1 iff n-th digit of Pi is >= (n+1)st digit.
3

%I #21 Feb 27 2023 11:15:18

%S 1,0,1,0,0,1,0,1,1,0,0,0,1,0,1,1,0,0,1,0,1,0,1,1,1,0,1,1,0,0,1,1,0,0,

%T 1,1,1,0,1,1,0,0,1,0,1,1,0,1,1,1,0,0,1,1,0,1,1,0,1,1,0,0,1,0,1,0,0,1,

%U 0,1,1,0,1,0,1,1,1,0,0,1,1,1,1,0,1,0,0,0,1,0,1,0,1,1,1,0,1,0,0,0,1,1,1,0,0,1,0,1,1,1,0,1,0,1,0,1,0

%N 1 iff n-th digit of Pi is >= (n+1)st digit.

%C a(n) = if A095916(n) <= 0 then 1 else 0. - _Reinhard Zumkeller_, Mar 12 2015

%H Reinhard Zumkeller, <a href="/A030658/b030658.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>

%t If[First[#]>=Last[#],1,0]&/@Partition[RealDigits[Pi,10,130][[1]],2,1] (* _Harvey P. Dale_, Jul 25 2011 *)

%o (Haskell)

%o a030658 = fromEnum . (<= 0) . a095916 -- _Reinhard Zumkeller_, Mar 12 2015

%o (Python)

%o import sympy as sp

%o length = 100

%o [int(x>=y) for l in [str(sp.N(sp.pi/10,length))[2:]] for x,y in zip(l[:-1],l[1:])]

%o # _Nicholas Stefan Georgescu_, Feb 27 2023

%Y Cf. A095916, A193496, A000796.

%K nonn,base,easy,nice

%O 1,1

%A _Maghraoui Abdelkader_

%E More terms from _David Radcliffe_