|
%I #18 Apr 11 2021 03:50:17
%S 16,18,20,22,24,26,6374,6376,6378,6380,6450,6452,6454,6456,6458,6460,
%T 6572,6574,6576,6578,6580,6582,6588,6590,6596,6682,6684,6924,6926,
%U 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
%N Where zeros occur in the 1-0 race in the binary expansion of Pi-3; that is, n such that A174832(n) = 0.
%D Stephen Wolfram, A New Kind of Science, Wolfram Media, Inc., Champaign, IL, 2002, page 136.
%H T. D. Noe, <a href="/A178980/b178980.txt">Table of n, a(n) for n = 1..1000</a>
%H Stephen Wolfram, <a href="http://www.wolframscience.com/nksonline/page-136?firstview=1">page 136 of New Kind of Science</a>.
%t 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]]
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 02 2011
|
