STATUS
proposed
reviewed
proposed
reviewed
editing
proposed
rd=RealDigits[N[Pi, 10000]][[1]]; a=0; s=Reap[Do[a=a+2Mod[rd[[n]], 2]-1; Sow[{n, a}], {n, 10000}]][[2, 1]]; (* this gives b-file *) (* _Moshe Levin, _, Oct 05 2011 *)
approved
editing
proposed
approved
editing
proposed
Cumulative sum of A030657 with zeroes zeros replaced by "-1".
approved
editing
editing
approved
_Moshe Levin (moshe.levin(AT)mail.ru), _, Oct 05 2011
editing
approved