%I #3 Mar 30 2012 17:26:17
%S 1,1,2,3,5,7,3,2,3,4,2,4,3,3,3,2,0,2,4,1,1,3,3,1,0,2,0,4,4,4,5,2,0,1,
%T 0,2,2,0,2,0,4,2,3,2,1,1,0,7,2,1,4,0,6,1,2,2,0,4,0,3,4,4,0,5,0,2,2,1,
%U 2,3,5,4,0,1,2,4,1,1,4,0,2,4,1,0,2,0,1,3,2,1,0,5,6,4,4,2,2,4,5,4,3,0,3,1,6
%N Weak digits in the decimal expansion of Pi.
%C Cf. A108533 (strong digits), A108535 (positions of balanced digits). In the decimal expansion of Pi, balanced digits are much more rare than weak or strong ones.
%t re=RealDigits[N[Pi, 300]][[1]];b={};Do[r=re[[n]];If[r<(re[[n-1]]+re[[n+1]])/2, b=Append[b, r]], {n, 2, 299}];A108534=b
%Y Cf. A108533, A108535.
%K nonn,base
%O 1,3
%A _Zak Seidov_, Jun 08 2005