|
| |
|
|
A109521
|
|
a(n)=the (1,2)-entry of the n-th power of the 2 X 2 matrix [0,-1;n-1,3*(n-1)].
|
|
0
|
|
|
|
-1, -3, -34, -675, -19024, -693000, -30932712, -1634065377, -99689107456, -6896573452773, -533453984900000, -45619590554955648, -4273735683350974464, -435258791936039363799, -47881430324748383440000, -5658033217549016808984375, -714765666389657378401288192
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
The (1,2)-entry of the n-th power of the 2 X 2 matrix [0,1;1,1] is the Fibonacci number A000045(n).
|
|
|
LINKS
|
Table of n, a(n) for n=1..17.
|
|
|
EXAMPLE
|
a(4)=-675 because if M is the 2 X 2 matrix [0,-1;3,9], then M^4 is the 2 X 2 matrix [ -234,-675;2025,5841].
|
|
|
MAPLE
|
with(linalg): a:=proc(n) local A, k: A[1]:=matrix(2, 2, [0, -1, n-1, 3*(n-1)]): for k from 2 to n do A[k]:=multiply(A[k-1], A[1]) od: A[n][1, 2] end: seq(a(n), n=1..18);
|
|
|
MATHEMATICA
|
M[n_] = If[n > 1, MatrixPower[{{0, -1}, {n - 1, 3*(n - 1)}}, n], {{0, 1}, {1, 1}}] a = Table[Abs[M[n][[1, 2]]], {n, 1, 50}]
|
|
|
CROSSREFS
|
Cf. A000045, A000166.
Sequence in context: A143638 A126753 A047794 * A222869 A069718 A077144
Adjacent sequences: A109518 A109519 A109520 * A109522 A109523 A109524
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
Roger L. Bagula, Jun 16 2005
|
|
|
STATUS
|
approved
|
| |
|
|
