|
| |
|
|
A152096
|
|
Quartic product sequence: m = 3*4; l = 3*4^3; a(n)=Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}].
|
|
0
| |
|
|
1, 1, 1, 16, 55, 355, 1888, 9829, 57145, 294064, 1683055, 8893147, 49635520, 267601933, 1472118817, 8012384080, 43823300455, 239288418067, 1306681029664, 7139564615413, 38980858167625, 212971742938096, 1162967620577311
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
COMMENTS
| Limiting ratio at n=30:5.461866286689612
|
|
|
FORMULA
| m = 3*4; l = 3*4^3; a(n)=Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}].
|
|
|
MATHEMATICA
| m = 3*4; l = 3*4^3; 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: A172190 A122658 A188838 * A188701 A029719 A039451
Adjacent sequences: A152093 A152094 A152095 * A152097 A152098 A152099
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Nov 24 2008
|
| |
|
|
