|
Search: id:A152192
|
|
|
| A152192 |
|
A product sequence of Fibonacci type: a(n)=Product[(1 + 4*Cos[2*Pi*k/n]^2), {k, 1, Floor[(n - 1)/2]}. |
|
+0
1
|
|
| 1, 1, 1, 2, 1, 5, 4, 13, 9, 34, 25, 89, 64, 233, 169, 610, 441, 1597, 1156, 4181, 3025, 10946, 7921, 28657, 20736, 75025, 54289, 196418, 142129, 514229, 372100
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Sqrt[a[n+2]/a[n]]=(Sqrt[5]+1)/2.
|
|
FORMULA
|
G.f.:(1+x^6-x^5-3*x^4-x^2+x)/((x^2+1)*(x^2+x-1)*(x^2-x-1)) [From Maksym Voznyy (voznyy(AT)mail.ru), Jul 26 2009]
|
|
MATHEMATICA
|
Clear[f, n, k]; f[n_] := Product[(1 + 4*Cos[2*Pi*k/n]^2), {k, 1, Floor[(n - 1)/2]}]; a = Table[N[f[n]], {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A091802 A144240 A119914 this_sequence A120924 A079285 A124660
Adjacent sequences: A152189 A152190 A152191 this_sequence A152193 A152194 A152195
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Nov 28 2008
|
|
|
Search completed in 0.002 seconds
|
