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

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

Offset: 1

Author

Harvey P. Dale

Keywords

• nonn
• base

Comments

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

Crossrefs

Cf. A049514, A049515, A049517, A049518, A049519, A049520, A049521, A049522, A049523.

Programs

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 *)

Extensions

Edited by Robert G. Wilson v, May 09 2003