|
|
A120659
|
|
A determinant sum sequence of the D5 dihehral 2 X 2 representation.
|
|
0
|
|
|
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 2483, 6053383, 36651957891448, 1343366154248994863013047386, 1804632624381764689171354018874685160689875147803208124
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
REFERENCES
|
(*http : // mathworld.wolfram.com/DihedralGroupD3.html*)
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|