A094580 In decimal expansion of Pi=3.1415...: smallest k > n such that the k-th digit equals the n-th digit.

10, 4, 20, 38, 9, 13, 17, 21, 11, 16, 32, 19, 15, 30, 31, 18, 22, 25, 27, 24, 23, 29, 42, 37, 26, 28, 35, 44, 34, 40, 39, 49, 51, 54, 36, 53, 58, 41, 43, 48, 50, 70, 45, 47, 46, 56, 65, 57, 52, 69, 55, 62, 68, 64, 66, 59, 67, 60, 63, 61, 71, 91, 80, 74, 87, 72, 97, 75, 95

Offset

1,1

Links

Table of n, a(n) for n=1..69.

Formula

a(n) = Min{k: k>n and A000796(k)=A000796(n)}.

a(n) = A094581(n) + n.

Mathematica

nn=100; With[{pd=RealDigits[Pi, 10, 10nn][[1]]}, Flatten[Table[Select[ Flatten[ Position[pd, pd[[i]]]], #>i&, 1], {i, nn}]]] (* Harvey P. Dale, May 28 2013 *)

Crossrefs

Cf. A000796, A094581.

Sequence in context: A364190 A329649 A040094 * A192027 A180866 A232908

Adjacent sequences: A094577 A094578 A094579 * A094581 A094582 A094583

Keyword

nonn,base

Author

Reinhard Zumkeller, May 13 2004

Status

approved