A121962 Star of David bonding digraph: characteristic polynomial: x(-18 - 10 x + 147 x^2 + 71 x^3 - 312 x^4 - 221 x^5 + 140 x^6 + 121 x^7 - 17 x^8 - 21 x^9 + x^11).

0, 104, 217, 1100, 4030, 17417, 69886, 293094, 1198262, 4975116, 20455103, 84597034, 348546395, 1439292844, 5934839295, 24493005079, 101027569889, 416847193038, 1719600133007, 7094616850137, 29268418803762

Offset

1,2

Links

Table of n, a(n) for n=1..21.

Index entries for linear recurrences with constant coefficients, signature (0,21,17,-121,-140,221,312,-71,-147,10,18).

Formula

G.f.: -x^2*(454*x^9 +317*x^8 -4208*x^7 -677*x^6 +7373*x^5 +3212*x^4 -2295*x^3 -1084*x^2 +217*x +104) / (18*x^11 +10*x^10 -147*x^9 -71*x^8 +312*x^7 +221*x^6 -140*x^5 -121*x^4 +17*x^3 +21*x^2 -1). - Colin Barker, May 16 2013

Mathematica

M = {{0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1}, {1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0}, {1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0}, {0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0}, { 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0}, {1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1}, {1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0}, {1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0}} v[1] = Table[Fibonacci[n], {n, 0, 11}] v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]

Crossrefs

Sequence in context: A270300 A108665 A258549 * A235011 A271745 A046298

Adjacent sequences: A121959 A121960 A121961 * A121963 A121964 A121965

Keyword

nonn,uned,easy

Author

Roger L. Bagula, Sep 02 2006

Status

approved