This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A049516 #7 Jan 16 2019 15:08:51
%S A049516 763,764,765,1590,4752,4903,5242,5323,5864,7965,12487,12701,13391,
%T A049516 16733,17535,17536,17989,19438,19447,19448,21881,22754,24467,24468,
%U A049516 28468,28469,29505,29869,30797,31901,32428,32479,32789,32790,33108
%N A049516 Starting index of a string of 4 or more consecutive equal digits in decimal expansion of Pi.
%C A049516 Digits 3,1,4,... are indexed 1,2,3,...
%t A049516 ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 33172]], 4]
%t A049516 SequencePosition[RealDigits[Pi,10,34000][[1]],{x_,x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 16 2019 *)
%Y A049516 Cf. A049514, A049515, A049517, A049518, A049519, A049520, A049521, A049522, A049523.
%K A049516 nonn,base
%O A049516 1,1
%A A049516 _Harvey P. Dale_
%E A049516 Edited by _Robert G. Wilson v_, May 09 2003