[go: up one dir, main page]

login
A049517
Starting index of a string of 5 or more consecutive equal digits in decimal expansion of Pi.
6
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,...
MATHEMATICA
ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 252499]], 5]
KEYWORD
nonn,base
EXTENSIONS
Edited by Robert G. Wilson v, May 09 2003
STATUS
approved