This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A030658 #21 Feb 27 2023 11:15:18 %S A030658 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 A030658 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 A030658 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 A030658 1 iff n-th digit of Pi is >= (n+1)st digit. %C A030658 a(n) = if A095916(n) <= 0 then 1 else 0. - _Reinhard Zumkeller_, Mar 12 2015 %H A030658 Reinhard Zumkeller, <a href="/A030658/b030658.txt">Table of n, a(n) for n = 1..1000</a> %H A030658 <a href="/index/Ph#Pi314">Index entries for sequences related to the number Pi</a> %t A030658 If[First[#]>=Last[#],1,0]&/@Partition[RealDigits[Pi,10,130][[1]],2,1] (* _Harvey P. Dale_, Jul 25 2011 *) %o A030658 (Haskell) %o A030658 a030658 = fromEnum . (<= 0) . a095916 -- _Reinhard Zumkeller_, Mar 12 2015 %o A030658 (Python) %o A030658 import sympy as sp %o A030658 length = 100 %o A030658 [int(x>=y) for l in [str(sp.N(sp.pi/10,length))[2:]] for x,y in zip(l[:-1],l[1:])] %o A030658 # _Nicholas Stefan Georgescu_, Feb 27 2023 %Y A030658 Cf. A095916, A193496, A000796. %K A030658 nonn,base,easy,nice %O A030658 1,1 %A A030658 _Maghraoui Abdelkader_ %E A030658 More terms from _David Radcliffe_