|
| |
|
|
A121811
|
|
Matrix Markov made using the Absolute value of the square root of the A120471 tetrahedral bonding graph matrix.
|
|
0
| |
|
|
0, 3, 8, 19, 46, 111, 263, 622, 1473, 3485, 8246, 19512, 46166, 109230, 258441, 611480, 1446777, 3423112, 8099170, 19162842, 45339771, 107275050, 253815495, 600533909, 1420878484, 3361834590, 7954186044, 18819806248, 44528139677
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Since the matrix comes out with irrational elements, it is amazing that the sequence that results in integer.
|
|
|
FORMULA
| M = N[Abs[MatrixPower[{{0, 1, 1, 1}, {1, 0, 1, 1}, {1, 1, 0, 1}, {1, 1, 1, 0}}, 1/2]]] v[1] = {0, 1, 2, 3} v[n_] := v[n] = M.v[n - 1] a(n) = v[n][[1]]
|
|
|
MATHEMATICA
| M = N[Abs[MatrixPower[{{0, 1, 1, 1}, {1, 0, 1, 1}, {1, 1, 0, 1}, {1, 1, 1, 0}}, 1/2]]] v[1] = {0, 1, 2, 3} v[n_] := v[n] = M.v[n - 1] a = Table[Floor[v[n][[1]]], {n, 1, 50}]
|
|
|
CROSSREFS
| Cf. A120471.
Sequence in context: A026789 A096576 A126874 * A181849 A164586 A018032
Adjacent sequences: A121808 A121809 A121810 * A121812 A121813 A121814
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 30 2006
|
| |
|
|
