A108171 Tribonacci version of A076662 using beta positive real Pisot root of x^3 - x^2 - x - 1.

4, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3, 4, 3, 3, 4, 3, 4, 3, 3

Offset

0,1

Comments

Three part composition of sequence based on the Fibonacci substitution twos order.

Links

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

Formula

b(n) = 1 + ceiling((n-1)*beta); a(n) = b(n) - b(n-1).

Mathematica

beta = Root[x^3-x^2-x-1, 1];
a[n_] = 1 + Ceiling[(n - 1)*beta^2]; (* A007066-like *)
b = Table[a[n] - a[n - 1], {n, 2, 100}] (* A076662-like *)

Crossrefs

Cf. A007066, A076662.

Sequence in context: A367439 A367126 A136627 * A231475 A106055 A171783

Adjacent sequences: A108168 A108169 A108170 * A108172 A108173 A108174

Keyword

nonn,uned

Author

Roger L. Bagula, Jun 13 2005

Status

approved