OFFSET
1,1
COMMENTS
Number of terms < 10^k: 3, 6, 6, 129, 599, 777, ..., . - Robert G. Wilson v, Apr 13 2009
Number of terms < 10^k (k = 7, 8, 9, 10): 1646, 1646, 45915, 147043. - Hans Havermann, Nov 25 2016
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..777
Hans Havermann, Table of n, a(n) for n = 1..147043
MATHEMATICA
pir = RealDigits[Pi, 2, 10^6][[1]]; fQ[n_] := Count[ Take[ pir, 2n], 1] == n; 2 Select[ Range@ 3461, fQ@# &] (* Robert G. Wilson v, Apr 13 2009 *)
Position[Accumulate[RealDigits[Pi, 2, 7000][[1]]/.(0->-1)], 0]//Flatten (* Harvey P. Dale, Jan 18 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
EXTENSIONS
More terms from Alexander D. Healy, Jun 22 2001
STATUS
approved