|
Search: id:A120657
|
|
|
| A120657 |
|
12 X 12 hypertrigonal prism bonding graph matrix Markov: this molecular structure is the major symmetry between the hypertetrahedron and hypercube: characteristic polynomial:-144x - 204 x^2 + 344 x^3 + 537 x^4 - 264 x^5 - 484 x^6 + 72 x^7 + 174x^8 - 8 x^9 - 24 x^10 + x^12. |
|
+0
1
|
|
| 0, 12, 154, 1108, 4106, 19972, 73914, 323188, 1228906, 5144932, 19966874, 81856468, 321759306, 1304637892, 5166951034, 20825008948, 82833227306, 332742946852, 1326760898394, 5319714708628, 21240922384906, 85077652679812
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
What is unique about this prism structure is that it is also topolocially a torus.
|
|
FORMULA
|
M = {{0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0}, { 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0}, {0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1}, {0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1}, {0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0}} v[1] = Table[Fibonacci[n], {n, 0, 11}] v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
MATHEMATICA
|
M = {{0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0}, {1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0}, { 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0}, {0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0}, {0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0}, {0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1}, {0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1}, {0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0}} v[1] = Table[Fibonacci[n], {n, 0, 11}] v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A121195 A004356 A036360 this_sequence A015612 A085260 A082173
Adjacent sequences: A120654 A120655 A120656 this_sequence A120658 A120659 A120660
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 10 2006
|
|
|
Search completed in 0.002 seconds
|
