A103191 This sequence needs a meaningful name.

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,uned,obsc,less

Author

Roger L. Bagula, Mar 18 2005

Status

approved