|
Search: id:A152096
|
|
|
| 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, 1, 16, 55, 355, 1888, 9829, 57145, 294064, 1683055, 8893147, 49635520, 267601933, 1472118817, 8012384080, 43823300455, 239288418067, 1306681029664, 7139564615413, 38980858167625, 212971742938096, 1162967620577311
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
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: A137741 A167690 A122658 this_sequence A029719 A039451 A005905
Adjacent sequences: A152093 A152094 A152095 this_sequence A152097 A152098 A152099
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Nov 24 2008
|
|
|
Search completed in 0.002 seconds
|
