OFFSET
1,2
COMMENTS
A test for normality.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..1000
FORMULA
a(n) ~ 10*n and a(n-1) < a(n).
a(10) = 58, a(100) = 882, a(1000) = 9619, a(10000) = 98564, a(100000) = 996482.
EXAMPLE
a(2) = 3 since the digit 1 occurs twice by the third place in the decimal expansion of Pi, i.e., "141".
a(3) = 10 since the digit 5 occurs three times by the tenth place in the decimal expansion of Pi, i.e., "1415926535".
MATHEMATICA
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]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Douglas Boffey and Robert G. Wilson v, Jun 27 2015
STATUS
approved