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

763, 764, 17535, 19447, 24467, 28468, 32789, 39862, 48440, 56989, 65261, 89086, 102388, 120460, 140745, 141900, 146044, 161863, 162249, 193035, 193036, 205035, 205194, 211059, 213246, 215288, 220569, 222300, 222301, 244454, 244455, 250130

Offset: 1

Author

Harvey P. Dale

Keywords

• nonn
• base

Comments

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

Crossrefs

Cf. A049514, A049515, A049516, 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, 252499]], 5]

Extensions

Edited by Robert G. Wilson v, May 09 2003