|
|
A058491
|
|
Coefficients of replicable function number 12c.
|
|
4
|
|
|
1, 5, -5, 9, -14, 19, -34, 55, -69, 104, -164, 209, -283, 413, -539, 712, -968, 1248, -1642, 2167, -2731, 3526, -4592, 5736, -7244, 9255, -11520, 14378, -18018, 22238, -27556, 34132, -41701, 51184, -62900, 76323, -92771, 113002, -136421, 164673, -198842
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
D. Alexander, C. Cummins, J. McKay and C. Simons, Completely Replicable Functions, LMS Lecture Notes, 165, ed. Liebeck and Saxl (1992), 87-98, annotated and scanned copy.
|
|
FORMULA
|
Expansion of a(x) / (psi(x) * psi(x^3)) in powers of x where psi() is a Ramanujan theta function and a() is a cubic AGM theta function. - Michael Somos, Aug 20 2012
Expansion of q^(1/2) * (eta(q)^3 + 9 * q * eta(q^9)^3) * eta(q) / (eta(q^2) * eta(q^6))^2 in powers of q. - Michael Somos, Aug 20 2012
|
|
EXAMPLE
|
G.f. = 1 + 5*x - 5*x^2 + 9*x^3 - 14*x^4 + 19*x^5 - 34*x^6 + 55*x^7 - 69*x^8 + ...
T12c = 1/q + 5*q - 5*q^3 + 9*q^5 - 14*q^7 + 19*q^9 - 34*q^11 + 55*q^13 - ...
|
|
MATHEMATICA
|
a[n_]:= SeriesCoefficient[(QPochhammer[x]^3 + 9*x*QPochhammer[x^9]^3)* QPochhammer[x]/(QPochhammer[x^2]*QPochhammer[x^6])^2, {x, 0, n}]; (* Michael Somos, Sep 14 2015 *)
|
|
PROG
|
(PARI) {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( (eta(x + A)^3 + 9 * x * eta(x^9 + A)^3) * eta(x + A) / (eta(x^2 + A) * eta(x^6 + A))^2, n))}; /* Michael Somos, Aug 20 2012 */
(PARI) { my(q='q+O('q^66)); Vec( (eta(q)^3 + 9 * q * eta(q^9)^3) * eta(q) / (eta(q^2) * eta(q^6))^2 ) } \\ Joerg Arndt, Apr 16 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|