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, 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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by Robert G. Wilson v, May 09 2003
STATUS
approved