A114952 Expansion of -x^2*(x^9-x^8+2*x^7-x^6+x^5-2*x^4+x^2+1) / ((x^6-x^4+x^2+1) * (x^6+x^4+x^2-1)).

0, 0, 1, 0, 1, 0, 1, 1, 2, 2, 3, 4, 7, 6, 11, 13, 24, 20, 37, 44, 81, 68, 125, 149, 274, 230, 423, 504, 927, 778, 1431, 1705, 3136, 2632, 4841, 5768, 10609, 8904, 16377, 19513, 35890, 30122, 55403, 66012, 121415, 101902, 187427, 223317, 410744, 344732

Offset

0,9

Links

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

Formula

G.f.: -x^2*(x^9-x^8+2*x^7-x^6+x^5-2*x^4+x^2+1) / ((x^6-x^4+x^2+1) * (x^6+x^4+x^2-1)). [Colin Barker, Feb 17 2013]

Mathematica

M = {{0, 1, 0}, {0, 0, 1}, {-I, -1, I}}; v[0] = {0, 1, 1}; v[n_] := v[n] = M.v[n - 1] aout = Flatten[Table[{Abs[Re[v[n][[1]]]], Abs[Im[v[n][[1]]]]}, {n, 0, 25}]]

Crossrefs

Cf. A000073.

Sequence in context: A332106 A088633 A213042 * A328789 A086969 A014692

Adjacent sequences: A114949 A114950 A114951 * A114953 A114954 A114955

Keyword

nonn,easy

Author

Roger L. Bagula, Feb 21 2006

Extensions

Better name by Colin Barker, Feb 17 2013

Status

approved