|
%I #4 Mar 31 2012 14:45:08
%S 763,764,17535,19447,24467,28468,32789,39862,48440,56989,65261,89086,
%T 102388,120460,140745,141900,146044,161863,162249,193035,193036,
%U 205035,205194,211059,213246,215288,220569,222300,222301,244454,244455,250130
%N Starting index of a string of 5 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, 252499]], 5]
%Y Cf. A049514, A049515, A049516, 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
|
