A039624 Numbers n such that there are equal numbers of 0's and 1's in first n digits of binary representation of Pi.

4, 6, 8, 16, 30, 32, 6356, 6358, 6360, 6362, 6364, 6368, 6370, 6372, 6374, 6384, 6430, 6442, 6444, 6446, 6450, 6464, 6468, 6470, 6508, 6514, 6524, 6526, 6562, 6564, 6568, 6570, 6572, 6586, 6588, 6688, 6690, 6692, 6694, 6806, 6866, 6916, 6918, 6920, 6922

Offset: 1

Author

Brian Galebach

Keywords

• base
• nonn

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

A039624 terms are the indices of zeros in A166006. - 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

Crossrefs

Cf. A004601, A166006.

Programs

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 *)

Extensions

More terms from Alexander D. Healy, Jun 22 2001