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 A053013 #11 Apr 20 2014 03:23:27
%S A053013 1,2,7,8,11,12,14,15,19,3076,3077,3078,3081,3082,3083,3831,3833,3835,
%T A053013 3836,3838,3921,3926,3927,3929,4000,4010,4011,4012,4014,4016,4018,
%U A053013 4019,4020,4023,4024,4038,4040,4045,4096,4097,4103,4104,4110,4113,4115,4124
%N A053013 Positions in decimal expansion of Pi where next prime begins.
%C A053013 This sequence refers to a variant of A047777 in which one does not require that all primes are distinct. See A229181 for first differences of this sequence. - _M. F. Hasler_, Sep 15 2013
%F A053013 Partial sums of A229181: a(n)=sum_{k=1...n} A229181(k). - _M. F. Hasler_, Sep 15 2013
%t A053013 A229181 = {1}; digits = Join[{{1}}, RealDigits[Pi, 10, 5000] // First // Rest]; digits //. {a:({_Integer..}..), b__Integer /; PrimeQ[FromDigits[{b}]], c___Integer} :> (Print[lg = {b} // Length]; AppendTo[A229181, lg]; {{1}, c}) ; Join[{1}, Accumulate[A229181] + 1] (* _Jean-François Alcover_, Oct 17 2013 *)
%K A053013 nonn,base
%O A053013 1,2
%A A053013 _Mark R. Diamond_, Feb 22 2000