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!)
A133738 Expansion of product of 3rd order mock theta function phi(q) and Ramanujan theta function f(-q) in powers of q. 1
1, 0, -2, -2, 2, 2, -2, 0, 2, 4, -2, -4, 2, 0, -2, -2, 2, 4, -4, -4, 2, 2, -2, 0, 4, 4, 0, -6, 2, 0, -2, 0, 2, 6, -4, -4, 4, 0, -4, -2, 0, 4, -2, -4, 2, 0, 0, 0, 4, 4, -2, -6, 2, 0, -6, 2, 2, 8, 0, -4, 2, 0, 0, 0, 2, 2, -6, -4, 2, 0, -2, 0, 4, 4, 0, -6, 2, -2 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

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

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..1000

M. Somos, Introduction to Ramanujan theta functions

Eric Weisstein's World of Mathematics, Ramanujan Theta Functions

FORMULA

G.f.: Sum_{k in Z} (-1)^k * x^(k*(3*k + 1)/2) * (1 + x^k) / (1 + x^(2*k)).

G.f.: ( Product_{k>0} 1 - x^k ) * ( 1 + Sum_{k>0} x^k^2 / ((1 + x^2) * (1 + x^4) * ... * (1 + x^(2*k))) ).

Convolution of A053250 and A010815.

EXAMPLE

G.f. = 1 - 2*x^2 - 2*x^3 + 2*x^4 + 2*x^5 - 2*x^6 + 2*x^8 + 4*x^9 - 2*x^10 + ...

MATHEMATICA

a[ n_] := If[ n < 0, 0, With[ {m = Quotient[ Sqrt[24 n + 1] - 1, 6]}, SeriesCoefficient[ Sum[ (-1)^k x^(k (3 k + 1)/2) (1 + x^k) / (1 + x^(2 k)), {k, -m, m}], {x, 0, n}]]]; (* Michael Somos, Jul 26 2015 *)

PROG

(PARI) {a(n) = if( n<0, 0, polcoeff( 1 + 2 * sum(k=1, (sqrtint(24*n + 1) - 1) \ 6, (-1)^k * x^(k*(3*k + 1)/2) * (1 + x^k) / (1 + x^(2*k)), x * O(x^n)), n))};

(PARI) {a(n) = my(t); if( n<0, 0, t = 1 + O(x^n); polcoeff( sum(k=1, sqrtint(n), t *= x^(2*k - 1) / (1 + x^(2*k)) + x * O(x^(n - (k-1)^2)), 1) * eta(x + x * O(x^n)), n))};

CROSSREFS

Cf. A010815, A053250.

Sequence in context: A173069 A059963 A137934 * A240713 A111409 A125088

Adjacent sequences:  A133735 A133736 A133737 * A133739 A133740 A133741

KEYWORD

sign

AUTHOR

Michael Somos, Sep 22 2007

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 August 7 10:52 EDT 2020. Contains 336275 sequences. (Running on oeis4.)