|
Search: id:A121811
|
|
|
| A121811 |
|
Matrix Markov made using the Absolute value of the square root of the A120471 tetrahedral bonding graph matrix. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A018032 A086808 A047093
Adjacent sequences: A121808 A121809 A121810 this_sequence A121812 A121813 A121814
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 30 2006
|
|
|
Search completed in 0.002 seconds
|
