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 A138345 #10 Aug 29 2016 18:56:33
%S A138345 -1,1,-1,-1,1,-1,0,-1,-1,1,-1,1,1,-1,1,1,-1,1,-1,1,0,-1,1,-1,-1,1,1,
%T A138345 -1,1,-1,1,1,-1,-1,1,-1,1,1,1,-1,1,-1,1,-1,1,1,-1,1,-1,1,1,1,-1,-1,1,
%U A138345 -1,-1,0,1,1,1,0,-1,0,1,0,1,-1,1,1,-1,-1,1,1,-1,1,-1,-1,1,-1,1,1,-1,1,0,1,-1,-1,1,0,-1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,1,1
%N A138345 a(n) = -1 if (n+1)-st decimal digit of 1/Pi is smaller than n-th digit of 1/Pi, 0 if they are equal, 1 if larger.
%t A138345 b = RealDigits[N[1/Pi, 1000]]; b = First[b]; a = {}; Do[k = b[[n + 1]] - b[[n]]; If[k < 0, AppendTo[a, -1], If[k == 0, AppendTo[a, 0], AppendTo[a, 1]]], {n, 1, 999}]; a (*Artur Jasinski*)
%t A138345 Which[#[[2]]<#[[1]],-1,#[[2]]==#[[1]],0,True,1]&/@ Partition[ RealDigits[ 1/Pi,10,110][[1]],2,1] (* _Harvey P. Dale_, Aug 09 2013 *)
%Y A138345 Cf. A049541, A138344.
%K A138345 sign,base
%O A138345 1,1
%A A138345 _Artur Jasinski_, Mar 16 2008