This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A278974 #9 Dec 06 2016 22:36:15 %S A278974 1,3,8,1481,1505,1509,1513,1541,1567,1596,1730,1734,1739,1741,1769, %T A278974 1772,1783,1790,66446,66489,66493,66496,68547,68554,68871,69116,69146, %U A278974 69190,69194,69268,69270,69379,69381,69389,241170 %N A278974 In the ternary Pi race between digits zero and one, where the race leader changes. %H A278974 Hans Havermann and Robert G. Wilson v, <a href="/A278974/b278974.txt">Table of n, a(n) for n = 1..395</a> %e A278974 Ternary Pi is 10.01021101222201021100211... %e A278974 With no digits of ternary Pi, there are an equal number of zeros and ones. 1 is in the sequence because with the initial digit of ternary Pi, 1 has now taken the count lead over 0 (1-0). 3 is the next term because with 3 initial digits of ternary Pi, 0 has now taken the count lead over 1 (2-1). 8 is the next term because with 8 initial digits, 1 regains the count lead over 0 (4-3). %t A278974 pib = RealDigits[Pi, 3, 5000000][[1]]; flag = 1; z = o = t = 0; k = 1; lst = {}; While[k < 5000001, Switch[ pib[[k]], 0, z++, 1, o++, 2, t++]; If[(z > o && flag != 1) || (z < o && flag != -1), AppendTo[lst, k]; flag = -flag]; k++]; lst %Y A278974 Cf. A004602, A278920, A278975, A278976, A278977. %K A278974 nonn,base %O A278974 1,2 %A A278974 _Hans Havermann_ and _Robert G. Wilson v_, Dec 03 2016