|
|
A278975
|
|
In the ternary Pi race between digits zero and two, where the race leader changes.
|
|
4
|
|
|
2, 14, 17, 33, 156, 189, 4853, 5494, 5541, 5548, 5663, 5665, 5668, 5673, 5686, 5689, 5702, 5704, 5719, 5732, 5739, 5831, 5834, 5839, 5845, 5847, 5905, 5913, 5925, 5928, 5950, 5978, 5980, 5986, 6000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Ternary Pi is 10.01021101222201021100211...
With no digits of ternary Pi, there are an equal number of zeros and twos. 2 is in the sequence because with the initial 2 digits of ternary Pi, 0 has now taken the count lead over 2 (1-0). 14 is the next term because with 14 initial digits of ternary Pi, 2 has now taken the count lead over 0 (5-4). 17 is the next term because with 17 initial digits, 0 regains the count lead over 2 (6-5).
|
|
MATHEMATICA
|
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 > t && flag != 1) || (z < t && flag != -1), AppendTo[lst, k]; flag = -flag]; k++]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|