OFFSET
0,2
COMMENTS
Former title: 7 X 7 matrix Matrov of seven vertex Fano Plane: Characteristic polynomial: 12 + 10*x - 24*x^2 - 21*x^3 + 12*x^4 + 12*x^5 - x^7.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Fano Plane
Index entries for linear recurrences with constant coefficients, signature (0,11,12,-10,-12).
FORMULA
a(n) = 11*a(n-2) + 12*a(n-3) - 10*a(n-4) - 12*a(n-5).
G.f.: 2*x*(7+16*x-2*x^2-14*x^3)/((1-x)*(1+x)*(1+2*x)*(1-2*x-6*x^2)). - Colin Barker, Mar 26 2012
a(n) = (1/3)*(-1 - 3*(-1)^n + (-2)^(n+1) + 6*(A083099(n+1) + 4*A083099(n))). - G. C. Greubel, Jul 22 2023
MATHEMATICA
M = {{0, 1, 0, 0, 0, 1, 1}, {1, 0, 1, 0, 0, 0, 1}, {0, 1, 0, 1, 0, 0, 1}, {0, 0, 1, 0, 1, 0, 1}, {0, 0, 0, 1, 0, 1, 1}, {1, 0, 0, 0, 1, 0, 1}, {1, 1, 1, 1, 1, 1, 0}};
v[1] = {0, 1, 1, 2, 3, 5, 8}; v[n_]:= v[n]= M.v[n-1];
Table[v[n][[1]], {n, 50}]
LinearRecurrence[{0, 11, 12, -10, -12}, {0, 14, 32, 150, 492}, 40] (* G. C. Greubel, Jul 22 2023 *)
PROG
(Magma) R<x>:=PowerSeriesRing(Integers(), 40); [0] cat Coefficients(R!( 2*x*(7+16*x-2*x^2-14*x^3)/(1-11*x^2-12*x^3+10*x^4+12*x^5) )); // G. C. Greubel, Jul 22 2023
(SageMath)
A083099=BinaryRecurrenceSequence(2, 6, 0, 1)
[A120711(n) for n in range(41)] # G. C. Greubel, Jul 22 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Aug 12 2006
EXTENSIONS
Edited by G. C. Greubel, Jul 22 2023
STATUS
approved