|
%I #7 Apr 19 2019 09:31:09
%S 154,178,602,763,764,765,766,856,984,1233,1451,1590,1591,1599,1699,
%T 1736,1890,2279,2360,2377,2441,2675,2708,2929,2950,3152,3435,3477,
%U 3504,3810,3867,3993,4001,4176,4256,4436,4509,4576,4752,4753,4794,4903,4904,4924
%N Starting index of a string of 3 or more consecutive equal digits in decimal expansion of Pi.
%C Digits 3,1,4,... are indexed 1,2,3,...
%H Harvey P. Dale, <a href="/A049515/b049515.txt">Table of n, a(n) for n = 1..1000</a>
%t ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 4928]], 3]
%t SequencePosition[RealDigits[Pi,10,5000][[1]],{x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 19 2019 *)
%Y Cf. A049514, A049516, 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
|
