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

Author

Zak Seidov, Jun 27 2005

Keywords

• base
• nonn

Comments

Essentially accumulating sums in A104781, but simpler Mmca code.

Crossrefs

Cf. A104781.

Programs

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