0,2

Characteristic polynomial : -17 - 96 x + 65 x^2 + 1528 x^3 + 3840 x^4 + 2996 x^5 - 1566 x^6 - 3312 x^7 - 702 x^8 + 880 x^9 + 372 x^10 - 52 x^11 - 37 x^12 + x^14.

Eric Weisstein's World of Mathematics, Fano Plane

M = {{0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0}, {1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0}, {0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0}, {1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0}, {1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1}, {0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1}, {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1}, {0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1}, {0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1}, {0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0}} v[1] = Table[Fibonacci[n], {n, 0, 13}] v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 50}]

Cf. A111384.

Sequence in context: A158645 A138979 A159234 this_sequence A065922 A061695 A107050

Adjacent sequences: A120712 A120713 A120714 this_sequence A120716 A120717 A120718

nonn

Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 12 2006, corrected Jul 14 2007

Edited by N. J. A. Sloane (njas(AT)research.att.com), Jul 14 2007