A259443 - OEIS

%I #21 Aug 23 2015 17:03:48

%S 1,3,10,24,25,27,43,45,55,58,62,79,80,100,107,113,124,134,147,150,152,

%T 161,171,186,197,204,205,222,228,233,236,255,267,273,278,293,296,303,

%U 321,334,337,354,373,380,386,392,400,432,437,438,442,445,446,471,483,490,494,495,499

%N The position of the first occurrence in the decimal expansion of Pi of n identical digits.

%C A test for normality.

%H Robert G. Wilson v, <a href="/A259443/b259443.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) ~ 10*n and a(n-1) < a(n).

%F a(10) = 58, a(100) = 882, a(1000) = 9619, a(10000) = 98564, a(100000) = 996482.

%e a(2) = 3 since the digit 1 occurs twice by the third place in the decimal expansion of Pi, i.e., "141".

%e a(3) = 10 since the digit 5 occurs three times by the tenth place in the decimal expansion of Pi, i.e., "1415926535".

%t pi3 = RealDigits[Pi - 3, 10, 1000][[1]]; f[n_] := f[n] = Block[{k = f[n - 1] + 1}, While[ Max[ Transpose[ Tally[ Take[pi3, k]]][[2]]] != n, k++]; k]; f[0] = 0; Array[f, 60]

%Y Cf. A000796, A159345.

%K base,easy,nonn

%O 1,2

%A _Douglas Boffey_ and _Robert G. Wilson v_, Jun 27 2015