|
Search: id:A108168
|
|
| |
|
| 0, 1, 2, 3, 5, 9, 12, 21, 37, 65, 114, 200, 265, 465, 816, 1432, 2513, 4410, 5842, 10252, 17991, 31572, 55405, 97229, 128801, 226030, 396655, 696081, 1221537, 2143648, 3761840, 4983377, 8745217, 15346786, 26931732, 47261895, 82938844, 109870576
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
Limit[a(n)/a(n-1),n->Infinity]={1.32472, 1.75488, 1.75488, 1.75488, 1.75488, 1.75488}
|
|
FORMULA
|
F[n] = F[n - 2] + F[n - 3] a(n) = F[Floor[beta*n]]
|
|
MATHEMATICA
|
NSolve[x^3 - x^2 - x - 1 = 0, x] beta = 1.8392867552141612 F[1] = 0; F[2] = 1; F[3] = 1; F[n__] := F[n] = F[n - 2] + F[n - 3] a1 = Table[F[Floor[beta*n]], {n, 1, 50}] Table[N[a1[[n]]/a1[[n - 1]]], {n, 3, Length[a1]}]
|
|
CROSSREFS
|
Cf. A000931.
Sequence in context: A051147 A079741 A000861 this_sequence A087146 A033945 A098142
Adjacent sequences: A108165 A108166 A108167 this_sequence A108169 A108170 A108171
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L Bagula (rlbagulatftn(AT)yahoo.com), Jun 13 2005
|
|
|
Search completed in 0.002 seconds
|
