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

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A129666 Expansion of unique cusp form of weight 4 level 7 in powers of q. 1

%I

%S 1,-1,-2,-7,16,2,-7,15,-23,-16,-8,14,28,7,-32,41,54,23,-110,-112,14,8,

%T 48,-30,131,-28,100,49,-110,32,12,-161,16,-54,-112,161,-246,110,-56,

%U 240,182,-14,128,56,-368,-48,324,-82,49,-131,-108,-196,-162,-100,-128

%N Expansion of unique cusp form of weight 4 level 7 in powers of q.

%C Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).

%D H. Rosson and G. Tornaria, Central values of quadratic twists for a modular form of weight 4, pp. 315-321 of J. B. Conrey et al., ed., Ranks of Elliptic Curves and Random Matrix Theory, Cambridge University Press, 2007.

%H G. C. Greubel, <a href="/A129666/b129666.txt">Table of n, a(n) for n = 1..1000</a>

%H Mathieu Lemire and Kenneth S. Williams, <a href="http://people.math.carleton.ca/~williams/papers/pdf/284.pdf">Evaluation of two convolution sums involving the sum of divisors function</a>, Bulletin of the Australian Mathematical Society, Volume 73, Issue 1 February 2006, pp. 107-115. See c7() p. 108.

%H LMFDB, <a href="http://www.lmfdb.org/ModularForm/GL2/Q/holomorphic/7/4/0/">Newforms of weight 4 on Gamma_0(7)</a>.

%H M. Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RamanujanThetaFunctions.html">Ramanujan Theta Functions</a>

%F Expansion of q * phi(-q)^3 * psi(q) * phi(-q^7)^3 * psi(q^7) + 4*q^2 * (phi(-q) * psi(q) * phi(-q^7) * psi(q^7))^2 in powers of q.

%F Expansion of ((eta(q) * eta(q^7))^3 + 4 * (eta(q^2) * eta(q^14))^3) * (eta(q) * eta(q^7))^2 / (eta(q^2) * eta(q^14)) in powers of q.

%F a(n) is multiplicative with a(7^e) = (-7)^e, a(p^e) = a(p) * a(p^(e-1)) - p^3 * a(p^(e-2)).

%F G.f. is a period 1 Fourier series which satisfies f(-1 / (7 t)) = 49 (t/i)^4 f(t) where q = exp(2 Pi i t).

%F G.f. A(x) satisfies 0 = f(A(x), A(x^2), A(x^4)) where f(u, v, w) = (u^2 + 2*u*v + 16*u*w + 12*v^2 + 32*v*w + 256*w^2) * (-v^3 + 2*w*u*v + w*u^2 + 16*w^2*u) + 2*v^5.

%F Convolution of A002652 and A002656.

%e G.f. = q - q^2 - 2*q^3 - 7*q^4 + 16*q^5 + 2*q^6 - 7*q^7 + 15*q^8 - 23*q^9 - ...

%t a[ n_] := With[ {A1 = QPochhammer[ q] QPochhammer[ q^7], A2 = QPochhammer[ q^2] QPochhammer[ q^14]}, SeriesCoefficient[ (A1^3 + 4 q A2^3) A1^2 / A2, {q, 0, n}]]; (* _Michael Somos_, Nov 11 2015 *)

%o (PARI) {a(n) = my(A, A1, A2); if( n<1, 0, n--; A = x * O(x^n); A1 = eta(x + A) * eta(x^7 + A); A2 = eta(x^2 + A) * eta(x^14 + A); polcoeff( (A1^3 + 4*x * A2^3) * A1^2 / A2, n))};

%o (Sage) CuspForms( Gamma0(7), 4, prec=55).0; # _Michael Somos_, May 28 2013

%o (MAGMA) Basis( CuspForms( Gamma0(7), 4), 56)[1]; /* _Michael Somos_, Nov 11 2015 */

%Y Cf. A002652, A002656.

%K sign,mult

%O 1,3

%A _Michael Somos_, Apr 27 2007

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 January 20 19:53 EST 2020. Contains 331096 sequences. (Running on oeis4.)