A107790 Ones order in the tribonacci substitution of three symbols.

3, 7, 12, 15, 20, 24, 29, 33, 38, 41, 46, 50, 55, 60, 64, 69, 72, 77, 81, 86, 89, 94, 98, 103, 108, 112, 117, 120, 125, 129, 134, 138, 143, 146, 151, 155, 160, 165, 169, 174, 177, 182, 186, 191, 195, 200, 203, 208, 212, 217, 222, 226, 231, 234, 239, 243, 248, 251

Offset

0,1

Links

Table of n, a(n) for n=0..57.

Formula

1->(2), 2->{3}, 3->{1, 2, 3}, a(n) = order of appearance of ones in the substitution

Mathematica

s[1] = {2}; s[2] = {3};; s[3] = {1, 2, 3}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] pp = p[13] a = Flatten[Table[If[pp[[j]] == 1, j, {}], {j, 1, Length[pp]}]]

Crossrefs

Cf. A000045, A000213.

Sequence in context: A310233 A189458 A189361 * A310234 A310235 A310236

Adjacent sequences: A107787 A107788 A107789 * A107791 A107792 A107793

Keyword

nonn,uned

Author

Roger L. Bagula, Jun 11 2005

Status

approved