OFFSET
1,1
REFERENCES
Stephen Wolfram, A New Kind of Science, Wolfram Media, Inc., Champaign, IL, 2002, page 136.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
Stephen Wolfram, page 136 of New Kind of Science.
MATHEMATICA
d=Drop[RealDigits[Pi, 2, 10^4+2][[1]], 2]; s=0; Reap[Do[If[d[[i]]==0, s--, s++]; If[s==0, Sow[i]], {i, Length[d]}]][[2, 1]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 02 2011
STATUS
approved