|
%I #11 Apr 20 2014 03:23:27
%S 1,2,7,8,11,12,14,15,19,3076,3077,3078,3081,3082,3083,3831,3833,3835,
%T 3836,3838,3921,3926,3927,3929,4000,4010,4011,4012,4014,4016,4018,
%U 4019,4020,4023,4024,4038,4040,4045,4096,4097,4103,4104,4110,4113,4115,4124
%N Positions in decimal expansion of Pi where next prime begins.
%C 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 Partial sums of A229181: a(n)=sum_{k=1...n} A229181(k). - _M. F. Hasler_, Sep 15 2013
%t 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 nonn,base
%O 1,2
%A _Mark R. Diamond_, Feb 22 2000
|
