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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A272199 Expansion of 1/(1 - 2*x + 13*x^2). 1
 1, 2, -9, -44, 29, 630, 883, -6424, -24327, 34858, 385967, 318780, -4380011, -12904162, 31131819, 230017744, 55321841, -2879586990, -6478357913, 24477915044, 133174482957, -51863929658, -1834996137757, -2995761189960, 17863427410921, 74671750291322 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS a(n) gives the coefficient c(13^n) of (eta(z^6))^4, a modular cusp form of weight 2, when expanded in powers of q = exp(2*Pi*i*z), Im(z) > 0, assuming alpha-multiplicativity (not valid for p = 2 and 3) with alpha(x) = x (weight 2) and input c(13) = +2. Eta is the Dedekind function. See the Apostol reference, p. 138, eq. (54) for alpha-multiplicativity and p. 130, eq. (39) with k=2. See also A000727 where a(n)=c(13^n) = A000727((13^n-1)/6)=A000727(2*A091030(n)), n >= 0. For the proof that alpha-multiplicativity leads to the recurrence involving Chebyshev's S polynomials see a comment on A168175, and the Apostol reference, Exercise 6., p. 139. REFERENCES Tom M. Apostol, Modular Functions and Dirichlet Series in Number Theory, Second edition, Springer, 1990, pp. 130, 138 - 139. LINKS Indranil Ghosh, Table of n, a(n) for n = 0..1790 Index entries for linear recurrences with constant coefficients, signature (2,-13). FORMULA G.f.: 1/(1 - 2*x + 13*x^2). a(n) = 2*a(n-1) - 13*a(n-2), a(-1) = 0, a(0) = 1. a(n) = sqrt(13)^n * S(n, 2/sqrt(13)), n >= 0, with Chebyshev's S polynomials (A049310). a(n) = (Ap^(n+1) - Am^(n+1))/(Ap - Am) with Ap:= 1 + 2*sqrt(3)*i and Am = 1 - 2*sqrt(3)*i, (Binet - de Moivre formula), where i is the imaginary unit. E.g.f.: (sqrt(3)*sin(2*sqrt(3)*x) + 6*cos(2*sqrt(3)*x))*exp(x)/6. - Ilya Gutkovskiy, Apr 27 2016 EXAMPLE a(2) = c(13^2) = A000727(2*A091030(2)) = A000727(28) = -9. MAPLE a:=series(1/(1-2*x+13*x^2), x=0, 26): seq(coeff(a, x, n), n=0..25); # Paolo P. Lava, Mar 27 2019 MATHEMATICA CoefficientList[Series[1/(1 - 2 x + 13 x^2), {x, 0, 25}], x] (* Michael De Vlieger, Apr 27 2016 *) LinearRecurrence[{2, -13}, {1, 2}, 30] (* Vincenzo Librandi, Nov 25 2016 *) PROG (PARI) Vec(1/(1-2*x+13*x^2) + O(x^99)) \\ Altug Alkan, Apr 28 2016 (MAGMA) I:=[1, 2]; [n le 2 select I[n] else 2*Self(n-1)-13*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 25 2016 CROSSREFS Cf. A023000, A049310, A168175. Sequence in context: A324619 A292099 A020113 * A260074 A294270 A163650 Adjacent sequences:  A272196 A272197 A272198 * A272200 A272201 A272202 KEYWORD sign,easy AUTHOR Wolfdieter Lang, Apr 27 2016 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.

Last modified April 21 19:16 EDT 2021. Contains 343156 sequences. (Running on oeis4.)