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,1

Comments

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

Links

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

Mathematica

ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 252499]], 5]

Crossrefs

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

Sequence in context: A083645 A145718 A049516 * A121321 A084072 A049534

Adjacent sequences: A049514 A049515 A049516 * A049518 A049519 A049520

Keyword

nonn,base

Author

Harvey P. Dale

Extensions

Edited by Robert G. Wilson v, May 09 2003

Status

approved