A103191 A sequence of triples arising from a matrix calculation, in particular let m = floor(n/3), then (a(3*m), a(3*m+1), a(3*m+2)) = M^(m*(m+1)/n) * (0, 1, 1) where M is the matrix [[1,0,1], [1,1,0], [-1,1,0]].

0, 1, 1, 1, 1, 1, 2, 4, 0, 8, 12, 4, 40, 72, 24, 352, 640, 192, 4736, 8704, 2560, 98816, 181760, 53760, 3186688, 5861376, 1732608, 158629888, 291766272, 86245376, 12189433856, 22419865600, 6627262464, 1445910806528, 2659444588544

Offset

0,7

Links

Table of n, a(n) for n=0..34.

Mathematica

a = 1;
M1 = {{1, 0, 1}, {a, a, 0}, {a - 2, 1, a - 1}};
v[0] = {0, 1, 1}; v[1] = {1, 1, 1};
v[n_] := v[n] = MatrixPower[M1, n].v[n - 1];
b = Flatten[Table[v[n], {n, 0, 11}]]

Crossrefs

Cf. A103193.

Sequence in context: A368609 A101160 A077624 * A324717 A295793 A071607

Adjacent sequences: A103188 A103189 A103190 * A103192 A103193 A103194

Keyword

nonn,less

Author

Roger L. Bagula, Mar 18 2005

Status

approved