|
Search: id:A120659
|
|
|
| A120659 |
|
A determinant sum sequence of the D5 dihehral 2 X 2 representation. |
|
+0
1
|
|
| 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 2483, 6053383, 36651957891448, 1343366154248994863013047386, 1804632624381764689171354018874685160689875147803208124
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
REFERENCES
|
(*http : // mathworld.wolfram.com/DihedralGroupD3.html*)
|
|
FORMULA
|
<< MathWorld`Groups` M0 = DihedralGroupMatrices[5]; s[n_] := M0[[n]] a[0] = Table[Fibonacci[n], {n, 0, 9}]; a[1] = Table[Fibonacci[n], {n,1, 10}]; a[n_] := a[n] = {a[n - 1][[2]], a[n - 1][[3]], a[n - 1][[4]], a[n - 1][[5]], a[n - 1][[6]], a[n - 1][[7]], a[n - 1][[8]], a[n - 1][[9]], a[n - 1][[10]], Abs[Det[Sum[a[n - 1][[i]]*s[i], {i, 1, 10}]]]}
|
|
MATHEMATICA
|
Clear[a, f, s] (*http : // mathworld.wolfram.com/DihedralGroupD3.html*) << MathWorld`Groups` M0 = DihedralGroupMatrices[5]; s[n_] := M0[[n]] a[0] = Table[Fibonacci[n], {n, 0, 9}]; a[1] = Table[Fibonacci[n], {n, 1, 10}]; a[n_] := a[n] = {a[n - 1][[2]], a[n - 1][[3]], a[n - 1][[4]], a[n - 1][[5]], a[n - 1][[6]], a[n - 1][[7]], a[n - 1][[8]], a[n - 1][[9]], a[n - 1][[10]], Abs[Det[Sum[a[n - 1][[i]]*s[i], {i, 1, 10}]]]} Table[Floor[a[n][[1]]], {n, 0, 16}]
|
|
CROSSREFS
|
Cf. A120495, A120496.
Sequence in context: A077372 A147659 A005181 this_sequence A042581 A093332 A050762
Adjacent sequences: A120656 A120657 A120658 this_sequence A120660 A120661 A120662
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 10 2006
|
|
|
Search completed in 0.002 seconds
|
