|
Search: id:A152094
|
|
|
| A152094 |
|
Quartic product sequence: m = 2*4; l = 2*4^3; a(n)=Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}]. |
|
+0
6
|
|
| 1, 1, 1, 11, 37, 179, 869, 3683, 18389, 80179, 385029, 1739651, 8134709, 37397203, 173097317, 799986979, 3694294933, 17085418099, 78904394437, 364797113027, 1685324681973, 7789441113619, 35993781049381, 166339303316579
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Limiting ratio at n=30:4.621205928975311
|
|
FORMULA
|
m = 2*4; l = 2*4^3; a(n)=Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}].
|
|
MATHEMATICA
|
b = Table[Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}], {n, 0, 30}]; FullSimplify[ExpandAll[%]] (* faster *) Round[b]
|
|
CROSSREFS
|
Sequence in context: A140373 A003020 A075024 this_sequence A147556 A120833 A034969
Adjacent sequences: A152091 A152092 A152093 this_sequence A152095 A152096 A152097
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)tahoo.com), Nov 24 2008
|
|
|
Search completed in 0.002 seconds
|
