

A049516


Starting index of a string of 4 or more consecutive equal digits in decimal expansion of Pi.


4



763, 764, 765, 1590, 4752, 4903, 5242, 5323, 5864, 7965, 12487, 12701, 13391, 16733, 17535, 17536, 17989, 19438, 19447, 19448, 21881, 22754, 24467, 24468, 28468, 28469, 29505, 29869, 30797, 31901, 32428, 32479, 32789, 32790, 33108
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Digits 3,1,4,... are indexed 1,2,3,...


LINKS

Table of n, a(n) for n=1..35.


MATHEMATICA

ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 33172]], 4]
SequencePosition[RealDigits[Pi, 10, 34000][[1]], {x_, x_, x_, x_}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 16 2019 *)


CROSSREFS

Cf. A049514, A049515, A049517, A049518, A049519, A049520, A049521, A049522, A049523.
Sequence in context: A210081 A083645 A145718 * A049517 A121321 A084072
Adjacent sequences: A049513 A049514 A049515 * A049517 A049518 A049519


KEYWORD

nonn,base


AUTHOR

Harvey P. Dale


EXTENSIONS

Edited by Robert G. Wilson v, May 09 2003


STATUS

approved



