M. Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
M. Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
M. Somos, <a href="http://somos.crg4.comA010815/multiqa010815.htmltxt
editing
approved
M. Somos, <a href="http://cis.csuohio.edu/~somos.crg4.com/multiq.pdfhtml
G.f.: = 1 + 2*x^3 - x^4 - 2*x^7 - x^8 - 2*x^11 + 2*x^12 - 2*x^16 - x^20 + 2*x^23 + ...
G.f.: = q + 2*q^19 - q^25 - 2*q^43 - q^49 - 2*q^67 + 2*q^73 - 2*q^97 - q^121 + ...
a[ n_] := SeriesCoefficient[ EllipticTheta[ 3, 0, q^3] QPochhammer[ q^4], {q, 0, n}];
(PARI) {a(n) = localmy(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^4 + A) * eta(x^6 + A)^5 / (eta(x^3 + A) * eta(x^12 + A))^2, n))};
proposed
editing
editing
proposed
G. C. Greubel, <a href="/A226862/b226862.txt">Table of n, a(n) for n = 0..2500</a>
G.f.: 1 + 2*x^3 - x^4 - 2*x^7 - x^8 - 2*x^11 + 2*x^12 - 2*x^16 - x^20 + 2*x^23 + ...
G.f.: q + 2*q^19 - q^25 - 2*q^43 - q^49 - 2*q^67 + 2*q^73 - 2*q^97 - q^121 + ...
approved
editing
editing
approved
G.f. is a period 1 Fourier series which satisfies f(-1 / (576 t)) = 384^(1/2) (t/i) g(t) where q = exp(2 pi Pi i t) and g() is the g.f. for A226861.
approved
editing
proposed
approved
editing
proposed