%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