Zak Seidov, <a href="/A196686/b196686_1.txt">Table of n, a(n) for n = 1..10000</a> [a(10000) corrected by Georg Fischer, Dec 29 2021]
Zak Seidov, <a href="/A196686/b196686_1.txt">Table of n, a(n) for n = 1..10000</a> [a(10000) corrected by Georg Fischer, Dec 29 2021]
reviewed
approved
proposed
reviewed
editing
proposed
editing
proposed
rd=RealDigits[N[Pi, 1000010004]][[1]]; a=0; s=Reap[Do[a=a+2Mod[rd[[n]], 2]-1; Sow[{n, a}], {n, 1000010004}]][[2, 1]]; (* this gives b-file *) (* Zak Seidov, Oct 05 2011 *)
Excess of number Number of odd digits over of Pi minus number of even digits of Pi.
Zak Seidov, <a href="/A196686/b196686_1.txt">Table of n, a(n) for n = 1..10000</a> [a(10000) corrected by _Georg Fischer_, Dec 29 2021]
Definition amended by Georg Fischer, Dec 29 2021
approved
editing
Moshe Levin, Zak Seidov, <a href="/A196686/b196686.txt">Table of n, a(n) for n = 1..10000</a>
Moshe Levin, Zak Seidov, <a href="https://oeis.org/wiki/File:A196686Fig1.jpg">Dependence a(n) for n = 1..10000</a>
Moshe Levin, Zak Seidov, <a href="https://oeis.org/wiki/File:A196686Fig2.jpg">Dependence a(n) for n = 1..10^6</a>
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_, Zak Seidov_, Oct 05 2011 *)
_Moshe Levin_, Zak Seidov_, Oct 05 2011
reviewed
approved