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.

A278976 In the ternary Pi race between digits one and two, where the race leader changes.

This page as a plain text file.
%I A278976 #12 Dec 06 2016 22:36:49
%S A278976 1,216,334,349,351,426,434,576,591,632,636,638,649,656,660,665,764,
%T A278976 771,936,939,953,1125,1127,1165,1168,1198,190780,190793,190797,190870,
%U A278976 190880,191094
%N A278976 In the ternary Pi race between digits one and two, where the race leader changes.
%H A278976 Hans Havermann, <a href="/A278976/b278976.txt">Table of n, a(n) for n = 1..10000</a>
%e A278976 Ternary Pi is 10.01021101222201021100211...
%e A278976 With no digits of ternary Pi, there are an equal number of ones and twos. 1 is in the sequence because with the initial digit of ternary Pi, 1 has now taken the count lead over 2 (1-0). 216 is the next term because with 216 initial digits of ternary Pi, 2 has now taken the count lead over 1 (75-74). 334 is the next term because with 334 initial digits, 1 regains the count lead over 2 (119-118).
%t A278976 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[(o > t && flag != 1) || (o < t && flag != -1), AppendTo[lst, k]; flag = -flag]; k++]; lst
%Y A278976 Cf. A004602, A278920, A278974, A278975, A278979.
%K A278976 nonn,base
%O A278976 1,2
%A A278976 _Hans Havermann_ and _Robert G. Wilson v_, Dec 03 2016