|
%I #5 Jun 02 2014 15:06:08
%S 1590,4752,4903,5242,5323,5864,7965,12487,12701,13391,16733,17989,
%T 19438,21881,22754,29505,29869,30797,31901,32428,32479,33108,33173,
%U 35458,37231,37323,40793,42096,43155,43406,43524,46513,48666,49056
%N Starting index of a string of exactly 4 consecutive equal digits in decimal expansion of Pi.
%C Digits 3,1,4,... are indexed 1,2,3,...
%t Flatten[Position[Partition[RealDigits[Pi,10,50000][[1]],6,1],_?(Union[ Differences[Most[Rest[#]]]]=={0}&&First[Differences[#]]!=0 && Last[ Differences[#]]!=0&),{1},Heads->False]]+1 (* _Harvey P. Dale_, Jun 02 2014 *)
%Y Cf. A049514-A049523.
%K nonn,base
%O 0,1
%A _Harvey P. Dale_
|
