|
Search: id:A108171
|
|
|
| A108171 |
|
Tribonacci version of A076662 using beta positive real Pisot root of x^3-x^2-x-1. |
|
+0
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
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Three part composition of sequence based on the Fibonacci subsitution twos order.
|
|
FORMULA
|
b(n)= 1+Ceiling[(n-1)*beta] a(n)=b(n)-b(n-1)
|
|
MATHEMATICA
|
NSolve[x^3 - x^2 - x - 1 = 0, x] beta = 1.8392867552141612 a[n_] = 1 + Ceiling[(n - 1)*beta^2] (* A007066 like*) aa = Table[a[n], {n, 1, 100}] (*A076662 like*) b = Table[a[n] - a[n - 1], {n, 2, Length[aa]}] F[1] = 2; F[n_] := F[n] = F[n - 1] + b[[n]] (* A000195 like*) c = Table[F[n], {n, 1, Length[b] - 1}]
|
|
CROSSREFS
|
Cf. A007066, A076662, A000195.
Sequence in context: A002285 A106049 A136627 this_sequence A106055 A103947 A111048
Adjacent sequences: A108168 A108169 A108170 this_sequence A108172 A108173 A108174
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 13 2005
|
|
|
Search completed in 0.002 seconds
|
