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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A138688 McKay-Thompson series of class 24I for the Monster group with a(0) = 2. 2
1, 2, 4, 6, 11, 18, 28, 42, 62, 90, 128, 180, 250, 342, 464, 624, 831, 1098, 1440, 1878, 2432, 3132, 4012, 5112, 6485, 8190, 10300, 12900, 16097, 20016, 24804, 30636, 37724, 46314, 56700, 69228, 84302, 102402, 124088, 150024, 180973, 217836, 261664, 313680 (list; graph; refs; listen; history; text; internal format)
OFFSET
-1,2
COMMENTS
Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
Rogers-Ramanujan functions: G(q) (see A003114), H(q) (A003106).
LINKS
K. Bringmann and H. Swisher, On a conjecture of Koike on identities between Thompson series and Roger-Ramanujan functions, Proc. Amer. Math. Soc. 135 (2007), 2317-2326. See page 2325 (A.7).
J. H. Conway and S. P. Norton, Monstrous Moonshine, Bull. Lond. Math. Soc. 11 (1979) 308-339.
Eric Weisstein's World of Mathematics, Ramanujan Theta Functions
FORMULA
Expansion of psi(q^4) * phi(-q^3) / (phi(-q) * psi(q^12)) in powers of q where phi(), psi() are Ramanujan theta functions.
Expansion of eta(q^2) * eta(q^3)^2 * eta(q^8)^2 * eta(q^12) / (eta(q)^2 * eta(q^4) * eta(q^6) * eta(q^24)^2) in powers of q.
Euler transform of period 24 sequence [ 2, 1, 0, 2, 2, 0, 2, 0, 0, 1, 2, 0, 2, 1, 0, 0, 2, 0, 2, 2, 0, 1, 2, 0, ...].
G.f.: (G(x) * G(x^24) + x^5 * H(x) * H(x^24))^2 * (G(x^4) * G(x^6) + x^2 * H(x^4) * H(x^6)) where G() and H() are Rogers-Ramanujan functions.
G.f. is a period 1 Fourier series which satisfies f(-1 / (24 t)) = f(t) where q = exp(2 Pi i t).
a(n) = A058579(n) unless n=0.
a(n) ~ exp(sqrt(2*n/3)*Pi) / (2^(5/4) * 3^(1/4) * n^(3/4)). - Vaclav Kotesovec, Oct 14 2015
EXAMPLE
G.f. = 1/q + 2 + 4*q + 6*q^2 + 11*q^3 + 18*q^4 + 28*q^5 + 42*q^6 + 62*q^7 + ...
MATHEMATICA
a[ n_] := SeriesCoefficient[ EllipticTheta[ 2, 0, q^2] EllipticTheta[ 4, 0, q^3] / (EllipticTheta[ 4, 0, q] EllipticTheta[ 2, 0, q^6]), {q, 0, n}]; (* Michael Somos, Sep 08 2015 *)
nmax=60; CoefficientList[Series[Product[(1+x^k) * (1-x^(3*k))^2 * (1-x^(4*k)) * (1+x^(4*k))^2 * (1+x^(6*k)) / ((1-x^k) * (1-x^(24*k))^2), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Oct 14 2015 *)
PROG
(PARI) {a(n) = my(A); if( n<-1, 0, n++; A = x * O(x^n); polcoeff( eta(x^2 + A) * eta(x^3 + A)^2 * eta(x^8 + A)^2 * eta(x^12 + A) / (eta(x + A)^2 * eta(x^4 + A) * eta(x^6 + A) * eta(x^24 + A)^2), n))};
CROSSREFS
Cf. A058579.
Sequence in context: A326495 A026636 A026658 * A131298 A168445 A328669
KEYWORD
nonn
AUTHOR
Michael Somos, Mar 26 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 00:26 EDT 2024. Contains 371264 sequences. (Running on oeis4.)