login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 60th year, we have over 367,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A189315 Expansion of 5*(1-3*x+x^2)/(1-5*x+5*x^2). 8
5, 10, 30, 100, 350, 1250, 4500, 16250, 58750, 212500, 768750, 2781250, 10062500, 36406250, 131718750, 476562500, 1724218750, 6238281250, 22570312500, 81660156250, 295449218750, 1068945312500, 3867480468750, 13992675781250, 50625976562500 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,1
COMMENTS
Let A be the unit-primitive matrix (see [Jeffery])
A=A_(10,1)=
(0 1 0 0 0)
(1 0 1 0 0)
(0 1 0 1 0)
(0 0 1 0 1)
(0 0 0 2 0).
Then a(n) = Trace(A^(2*n)).
Evidently one of a class of accelerator sequences for Catalan's constant based on traces of successive powers (here they are A^(2*n)) of a unit-primitive matrix A_(N,r) (0<r<floor(N/2)) and for which the closed-form expression for a(n) is derived from the eigenvalues of A_(N,r).
From Tom Copeland, Dec 08 2015: (Start)
These are also the non-vanishing traces for the adjacency matrices of the simple Lie algebras B_5 and C_5. See links for B_4, A265185, and B_3, A025192.
a(n+1) = 10 * A081567(n), and, ignoring a(0), a G.F. is 10 *(1-2*x)/(1-5*x+5*x^2) whose denominator is y^5 * A127672(5,1/y) with y = sqrt(x).
-log(1 - 5x^2 + 5x^4) = 10 x^2/2 + 30 x^4/4 + ... provides a logarithmic series for the traces of both the odd and even powers of the matrix beginning with the first power. (End)
LINKS
L. E. Jeffery, Unit-primitive matrices.
FORMULA
G.f.: 5*(1-3*x+x^2)/(1-5*x+5*x^2).
a(n) = 5*a(n-1)-5*a(n-2), n>2, a(0)=5, a(1)=10, a(2)=30.
a(n) = Sum_{k=1..5) (w_k)^(2*n), w_k=2*cos((2*k-1)*Pi/10).
a(n) = 2^(1-n)*((5-Sqrt(5))^n+(5+Sqrt(5))^n), for n>0, with a(0)=5.
a(n) = 5*A147748(n).
MATHEMATICA
CoefficientList[Series[5(1-3x+x^2)/(1-5x+5x^2), {x, 0, 40}], x] (* or *)
Join[{5}, LinearRecurrence[{5, -5}, {10, 30}, 40]] (* Harvey P. Dale, Apr 25 2011 *)
PROG
(PARI) Vec(5*(1-3*x+x^2)/(1-5*x+5*x^2)+O(x^99)) \\ Charles R Greathouse IV, Sep 24 2012
(Magma) I:=[5, 10, 30]; [n le 3 select I[n] else 5*Self(n-1)-5*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Dec 09 2015
CROSSREFS
Sequence in context: A002571 A077916 A358728 * A056422 A032296 A052648
KEYWORD
nonn,easy
AUTHOR
L. Edson Jeffery, Apr 20 2011
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 4 21:08 EST 2023. Contains 367565 sequences. (Running on oeis4.)