A089075 A nonsense sequence.

-1, 1, -1, 2, -2, 4, -4, 7, -7, 12, -12, 22, -21, 39, -39, 68, -70, 119, -127, 210, -229, 369, -413, 649, -742, 1143, -1334, 2017, -2393, 3561, -4289, 6293, -7680, 11129, -13739, 19696, -24559, 34879, -43871, 61801, -78324, 109555, -139764, 194291, -249295, 344694, -444496, 611723, -792285

Offset

1,4

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Mathematica

(* k is a root of x^4 - x^3 - 1: *)
k=1.38027756909761411567330169182273187781662670155876302541177133121124957411;
q=k^2-k-1/k-1/k^2;
m0={{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 1, 1, q}};
m[n_]=MatrixPower[m0, n];
Table[Floor[Re[m[n][[4, 4]]]], {n, 1, 1000}]

Crossrefs

Cf. A089074, A089076, A089077.

Sequence in context: A306664 A365826 A131524 * A355195 A325098 A368688

Adjacent sequences: A089072 A089073 A089074 * A089076 A089077 A089078

Keyword

sign,easy,less

Author

Roger L. Bagula, Dec 04 2003

Extensions

Edited by G. C. Greubel, Feb 19 2021

Status

approved