A109407 In decimal expansion of Pi, positions of ends of minimal sublists each containing all decimal digits at least once.

33, 51, 70, 97, 112, 139, 182, 210, 246, 289, 306, 329, 347, 363, 406, 450, 472, 506, 528, 551, 582, 601, 637, 666, 688, 705, 740, 758, 793, 852, 895, 918, 995, 1016, 1076, 1118, 1156, 1193, 1229, 1272, 1300, 1321, 1341, 1367, 1407, 1433, 1450, 1488, 1512

Offset

1,1

Comments

Essentially accumulating sums in A104781, but simpler Mmca code.

Links

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

Mathematica

p=RealDigits[N[Pi, 10000]][[1]]; r=Range[0, 9]; bb={}; s={}; Do[AppendTo[s, p[[i]]]; If[Complement[r, s]== {}, AppendTo[bb, i]; s={}], {i, 1, 10000}]; A109407=bb

Crossrefs

Cf. A104781.

Sequence in context: A034815 A014976 A364286 * A204374 A261107 A211141

Adjacent sequences: A109404 A109405 A109406 * A109408 A109409 A109410

Keyword

base,nonn

Author

Zak Seidov, Jun 27 2005

Status

approved