A089062 - OEIS

A089062

A nonsense sequence.

1, 0, 1, -1, 1, -1, 0, -2, -1, -1, -2, 0, -2, 0, -1, 1, 0, 0, 1, -1, 1, -1, 0, -2, -1, -1, -2, 0, -2, 0, -1, 1, 0, 0, 1, -1, 1, -1, 0, -2, -1, -1, -2, 0, -2, 0, -1, 1, 0, 0, 1, -1, 1, -1, 0, -2, -1, -1, -2, 0, -2, 0, -1, 1, 0, 0, 1, -1, 1, -1, 0, -2, -1, -1, -2, -1, -2, 0, -1, 1, 0, 0, 1, 0, 1, -1, 0, -2, -1, -1, -2, -1, -2, 0, -1, 1, 0, 1, 1, 1, 1, 0, 1

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,8

LINKS

Table of n, a(n) for n=1..103.

MATHEMATICA

(* Adamson's matrix functions alternating golden mean and minimal Pisot*)

digits = 20

NSolve[x^3 - x - 1 == 0, x]

k = -1.32471795724474605

q = k - 1/k

m0 = {{0, 1}, {1, q}}

NSolve[x^2 - x - 1 == 0, x]

k1 = 1.6180339887498949

q1 = k1 - 1/k1

m1 = {{0, 1}, {1, q1}}

m[n_Integer?Positive] := If[Mod[n, 2] == 0, m[n - 1].m0, m[n - 1].m1]

m[0] = {{1, 0}, {0, 1}}

a = Table[Floor[m[n][[2, 2]]], {n, 1, digits}]

CROSSREFS

Sequence in context: A117209 A035192 A229653 * A282634 A039980 A373572

Adjacent sequences: A089059 A089060 A089061 * A089063 A089064 A089065

KEYWORD

sign,uned,obsc,less

AUTHOR

Roger L. Bagula, Dec 02 2003

STATUS

approved