OFFSET
1,2
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
d=Drop[RealDigits[Pi, 2, 10002][[1]], 2]; s=0; Table[If[d[[i]] == 0, s--, s++]; s, {i, Length[d]}]
CROSSREFS
KEYWORD
sign,base
AUTHOR
T. D. Noe, Jan 12 2011
STATUS
approved