|
Search: id:A120711
|
|
|
| A120711 |
|
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. |
|
+0
1
|
|
| 0, 14, 32, 150, 492, 1894, 6724, 24854, 89972, 329238, 1197972, 4372054, 15930580, 58096214, 211770452, 772129110, 2814859092, 10262536534, 37414140244, 136403674454, 497291840852, 1813006427478, 6609762501972, 24097566365014
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Limited here to seven connecting lines in the bonding graph.
|
|
REFERENCES
|
(*http://mathworld.wolfram.com/FanoPlane.html*)
|
|
FORMULA
|
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] a(n) =v[n][[1]]
|
|
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] a = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Cf. A111384.
Sequence in context: A101444 A084194 A031109 this_sequence A018959 A107484 A076329
Adjacent sequences: A120708 A120709 A120710 this_sequence A120712 A120713 A120714
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 12 2006
|
|
|
Search completed in 0.002 seconds
|
