|
| |
|
|
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}].
|
|
5
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
COMMENTS
| 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 * A160623 A147556 A201312
Adjacent sequences: A152091 A152092 A152093 * A152095 A152096 A152097
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)tahoo.com), Nov 24 2008
|
| |
|
|
