%I #2 Mar 30 2012 17:34:28
%S 1,1,1,1,4,1,1,13,13,1,1,40,70,40,1,1,121,304,304,121,1,1,364,1195,
%T 1684,1195,364,1,1,1093,4435,8029,8029,4435,1093,1,1,3280,15856,35002,
%U 44806,35002,15856,3280,1,1,9841,55222,143704,223366,223366,143704,55222,9841
%N A new vector recursion sequence: a(n)=-2*{0,a(n-2),0}+3*{-2/3,a(n-1)}+3*{a(n-1),-2/2}.
%F a(n)=-2*{0,a(n-2),0}+3*{-2/3,a(n-1)}+3*{a(n-1),-2/2}.
%e {1},
%e {1, 1},
%e {1, 4, 1},
%e {1, 13, 13, 1},
%e {1, 40, 70, 40, 1},
%e {1, 121, 304, 304, 121, 1},
%e {1, 364, 1195, 1684, 1195, 364, 1},
%e {1, 1093, 4435, 8029, 8029, 4435, 1093, 1},
%e {1, 3280, 15856, 35002, 44806, 35002, 15856, 3280, 1},
%e {1, 9841, 55222, 143704, 223366, 223366, 143704, 55222, 9841, 1},
%e {1, 29524, 188629, 565066, 1031206, 1250584, 1031206, 565066, 188629, 29524, 1}
%t Clear[a]; a[0] = {1}; a[1] = {1, 1};
%t a[n_] := a[n] = -2*Join[{0}, a[n - 2], {0}] + 3*Join[{-2/3}, a[n - 1]] + 3*Join[a[n - 1], {-2/3}];
%t Table[a[n], {n, 0, 10}] Flatten[%]
%K nonn,uned,tabl
%O 0,5
%A _Roger L. Bagula_, Dec 09 2008
|