1,1

Inspired by Ludwig von Bertalanffy's fish weight allometric equations and Gary Adamson's tridiagonal matrix work.

A=4 X 4 tridiagonal matrix a(n, 1) =(3*A^3-a^2)^n*{1, 1, 1, 1}

N0=4 v=Table[1, {n, 1, N0}] a0=2*IdentityMatrix[N0] a0[[N0, N0]]=1 a1=Table[If[n-m+1==0, -1, 0], {n, 1, N0}, {m, 1, N0}] a2=Table[If[m-n+1==0, -1, 0], {n, 1, N0}, {m, 1, N0}] a=a0+a1+a2 (* allometric matrix N-K>exp{1]*) anm=3*MatrixPower[a, 3]-MatrixPower[a, 2] digits=25 aa=Table[MatrixPower[anm, n].v, {n, 1, digits}] aa1=Table[aa[[n, 1]], {n, 1, digits}] anm=3*MatrixPower[a, 3]-MatrixPower[a, 2]

Sequence in context: A033509 A060825 A123838 this_sequence A095680 A128685 A076481

Adjacent sequences: A096081 A096082 A096083 this_sequence A096085 A096086 A096087

nonn,uned,obsc

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 21 2004

Warning: This entry has not been edited and may contain errors. It is included on a provisional basis in the hope that some reader will edit it. - N. J. A. Sloane (njas(AT)research.att.com).