A049520 Starting index of a string of exactly 4 consecutive equal digits in decimal expansion of Pi.

1590, 4752, 4903, 5242, 5323, 5864, 7965, 12487, 12701, 13391, 16733, 17989, 19438, 21881, 22754, 29505, 29869, 30797, 31901, 32428, 32479, 33108, 33173, 35458, 37231, 37323, 40793, 42096, 43155, 43406, 43524, 46513, 48666, 49056

Offset

0,1

Comments

Digits 3,1,4,... are indexed 1,2,3,...

Links

Table of n, a(n) for n=0..33.

Mathematica

Flatten[Position[Partition[RealDigits[Pi, 10, 50000][[1]], 6, 1], _?(Union[ Differences[Most[Rest[#]]]]=={0}&&First[Differences[#]]!=0 && Last[ Differences[#]]!=0&), {1}, Heads->False]]+1 (* Harvey P. Dale, Jun 02 2014 *)

Crossrefs

Cf. A049514-A049523.

Sequence in context: A224938 A083632 A224939 * A252085 A224948 A238075

Adjacent sequences: A049517 A049518 A049519 * A049521 A049522 A049523

Keyword

nonn,base

Author

Harvey P. Dale

Status

approved