login
A178980
Where zeros occur in the 1-0 race in the binary expansion of Pi-3; that is, n such that A174832(n) = 0.
2
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.
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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Jan 02 2011
STATUS
approved