|
Search: id:A152103
|
|
|
| A152103 |
|
Quartic product sequence: m = 2; l = 4; a(n)=2^n*Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}]. |
|
+0
1
|
|
| 1, 2, 4, 14, 48, 158, 532, 1778, 5952, 19922, 66676, 223166, 746928, 2499950, 8367268, 28005026, 93732096, 313718882, 1050008932, 3514352558, 11762446512, 39368602238, 131765686708, 441016322834, 1476070150464, 4940368363442
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
FORMULA
|
m = 2; l = 4; a(n)=2^n*Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}].
|
|
MATHEMATICA
|
m = 2; l = 4; b = Table[2^n*Product[1 + m*Cos[k*Pi/n]^2 + l*Cos[k*Pi/n]^4, {k, 1, (n - 1)/2}], {n, 0, 30}]; FullSimplify[ExpandAll[%]] Round[b]
|
|
CROSSREFS
|
Sequence in context: A062868 A054936 A006443 this_sequence A102879 A032312 A032222
Adjacent sequences: A152100 A152101 A152102 this_sequence A152104 A152105 A152106
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 24 2008
|
|
|
Search completed in 0.002 seconds
|
