|
%I #7 Jan 16 2019 15:08:51
%S 763,764,765,1590,4752,4903,5242,5323,5864,7965,12487,12701,13391,
%T 16733,17535,17536,17989,19438,19447,19448,21881,22754,24467,24468,
%U 28468,28469,29505,29869,30797,31901,32428,32479,32789,32790,33108
%N Starting index of a string of 4 or more consecutive equal digits in decimal expansion of Pi.
%C Digits 3,1,4,... are indexed 1,2,3,...
%t ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 33172]], 4]
%t SequencePosition[RealDigits[Pi,10,34000][[1]],{x_,x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 16 2019 *)
%Y Cf. A049514, A049515, A049517, A049518, A049519, A049520, A049521, A049522, A049523.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_
%E Edited by _Robert G. Wilson v_, May 09 2003
|
