Harvey P. Dale (hpd1(AT)is2.nyu.edu)
Harvey P. Dale (hpd1(AT)is2.nyu.edu)
Edited by _Robert G. Wilson v (rgwv(AT)rgwv.com), _, May 09 2003
0,1,1
ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 252499]], 5]
Harvey P. Dale (hpd1@(AT)is2.nyu.edu)
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), May 09 2003
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
0,1
Digits 3,1,4,... are indexed 1,2,3,...
nonn,base
Harvey P. Dale (hpd1@is2.nyu.edu)
approved