Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #10 Feb 10 2014 01:26:08
%S 2,7,9,16,1,3,2,5,3,2,5,7,4,7,11,18,8,6,14,20,9,16,25,41,5,17,22,39,2,
%T 8,6,14,12,41,53,94,5,19,14,33,19,14,33,47,22,39,61,100,46,34,80,114,
%U 53,94,147,241,29,99,128,227,12,46,34,80,70,239,309,548,29,111,82,193,111
%N M={{0, 1, -1, 1}, {-1, 0, 1, -1}, {1, -1, 0, 1}, {-1, 1, -1, 0}}; a[n_]:=M.a[n-1]; a[0]:={{0, 1, 1, 2}, {1, 1, 2, 3}, {1, 2, 3, 5}, {2, 3, 5, 8}};
%C Group sum matrix of an SO(4) type ( so(4)) of matrix group. Used in four-dimensional electromagnetic theory for a scaled field tensor such that: T(energy density) =s*M.s*MatrixPower[M,-1]/4 where s is the field scale constantSqrt[4*c*hbar^2/(3*e^4)].
%t (* SO(4) Determinant one 4 X 4 Markov sequence *) (* by _Roger L. Bagula_, Sep 09 2004 *) Clear[M, A, x] digits=Floor[21*3/4]; M={{0, 1, -1, 1}, {-1, 0, 1, -1}, {1, -1, 0, 1}, {-1, 1, -1, 0}}; Det[M] A[n_]:=M.A[n-1]; A[0]:={{0, 1, 1, 2}, {1, 1, 2, 3}, {1, 2, 3, 5}, {2, 3, 5, 8}}; (* flattened sequence of 4 X 4 matrices made with an SO(4) Determinant one recurrence*) b=Flatten[Table[M.A[n], {n, 1, digits}]] Floor[Abs[b]] ListPlot[b, PlotJoined->True]
%K nonn
%O 0,1
%A _Roger L. Bagula_, Sep 09 2004