A178980 Where zeros occur in the 1-0 race in the binary expansion of Pi-3; that is, n such that A174832(n) = 0.

16, 18, 20, 22, 24, 26, 6374, 6376, 6378, 6380, 6450, 6452, 6454, 6456, 6458, 6460, 6572, 6574, 6576, 6578, 6580, 6582, 6588, 6590, 6596, 6682, 6684, 6924, 6926, 6928, 6934, 6936, 6958, 6960, 6966, 6974, 6976, 6990, 6994, 6998, 7012, 7014, 7016, 7018, 7020, 7048, 7050, 7052, 7056, 7330, 7332, 7374, 7376, 7404

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

Sequence in context: A043675 A043705 A374594 * A031315 A077914 A273543

Adjacent sequences: A178977 A178978 A178979 * A178981 A178982 A178983

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 02 2011

Status

approved