login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A152103 a(n) = 2^n*prod(k=1..floor((n-1)/2), 1 + 2*cos(k*Pi/n)^2 + 4*cos(k*Pi/n)^4). 0
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; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Table of n, a(n) for n=0..25.

Index entries for linear recurrences with constant coefficients, signature (2,4,2,-1).

FORMULA

a(n) = 2*a(n-1)+4*a(n-2)+2*a(n-3)-a(n-4) for n>5. G.f.: (x^4-4*x^3-4*x^2+1) / (x^4-2*x^3-4*x^2-2*x+1). - Colin Barker, Jan 05 2014

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]

PROG

(PARI) Vec((x^4-4*x^3-4*x^2+1)/(x^4-2*x^3-4*x^2-2*x+1) + O(x^100)) \\ Colin Barker, Jan 05 2014

CROSSREFS

Sequence in context: A062868 A054936 A006443 * A102879 A032312 A032222

Adjacent sequences:  A152100 A152101 A152102 * A152104 A152105 A152106

KEYWORD

nonn,easy

AUTHOR

Roger L. Bagula, Nov 24 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 26 11:04 EDT 2020. Contains 337353 sequences. (Running on oeis4.)