LINKS
M. Michael Somos, <a href="/A010815/a010815.txt">Introduction to Ramanujan theta functions</a>
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A092876
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing entries 1-10 | older changes
Expansion of q * (f(-q, -q^12) * f(-q^3, -q^10) * f(-q^4, -q^9)) / (f(-q^2, -q^11) * f(-q^5, -q^8) * f(-q^6, -q^7)) in powers of q where f(, ) is Ramanujan's general theta function.
(history; published version)
(history; published version)
LINKS
M. Somos, <a href="http://somos.crg4.comA010815/multiqa010815.htmltxt
STATUS
editing
approved
NAME
Expansion of q * (f(-q, -q^12) * f(-q^3, -q^10) * f(-q^4, -q^9)) / (f(-q^2, -q^11) * f(-q^5, -q^8) * f(-q^6, -q^7)) in powers of q where f(, ) is Ramanujan's two-variable general theta function.
LINKS
M. Somos, <a href="http://cis.csuohio.edu/~somos.crg4.com/multiq.pdfhtml
FORMULA
Euler transform of period 13 sequence [ -1, 1, -1 ,-1, 1, 1 ,1, 1, -1, -1, 1, -1, 0, ...].
PROG
(PARI) {a(n) = localmy(A, u, v); if( n<0, 0, A = x; for( k=2, n, u = A + x * O(x^k); v = subst(u, x, x^2); A -= x^k * polcoeff( u^2 - v + u*v^3 + u^3*v^2 + 2*u*v * (1 - u + v + u*v), k+1) / 2); polcoeff(A, n))};
STATUS
reviewed
editing
STATUS
proposed
reviewed
STATUS
editing
proposed
FORMULA
G.f.: x * Product_{k>0} (1 - x^k)^kroneckerKronecker( 13, k).
STATUS
approved
editing
STATUS
reviewed
approved
STATUS
proposed
reviewed
STATUS
editing
proposed