login
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

%I #9 Mar 12 2014 16:36:50

%S 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,

%T 423,504,927,778,1431,1705,3136,2632,4841,5768,10609,8904,16377,19513,

%U 35890,30122,55403,66012,121415,101902,187427,223317,410744,344732

%N 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)).

%F 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]

%t 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}]]

%Y Cf. A000073.

%K nonn,easy

%O 0,9

%A _Roger L. Bagula_, Feb 21 2006

%E Better name by _Colin Barker_, Feb 17 2013