cp's OEIS Frontend

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.

A278974 In the ternary Pi race between digits zero and one, where the race leader changes.

This page as a plain text file.
%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