A109407 - OEIS

%I #3 Mar 30 2012 17:26:17

%S 33,51,70,97,112,139,182,210,246,289,306,329,347,363,406,450,472,506,

%T 528,551,582,601,637,666,688,705,740,758,793,852,895,918,995,1016,

%U 1076,1118,1156,1193,1229,1272,1300,1321,1341,1367,1407,1433,1450,1488,1512

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

%C Essentially accumulating sums in A104781, but simpler Mmca code.

%t 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

%Y Cf. A104781.

%K base,nonn

%O 1,1

%A _Zak Seidov_, Jun 27 2005