OEIS/Eta products: Difference between revisions
Ramanujan's P, Q, R |
A41. E_8 |
||
Line 19: | Line 19: | ||
[https://oeis.org/A000041 A000041] 1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 135, 176, 231 | [https://oeis.org/A000041 A000041] 1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 135, 176, 231 | ||
Euler transform of period 1: [1] | Euler transform of period 1: [1] | ||
EPSIG="[1,-1]" Q="1/24" | |||
====Dedekind eta η (without the q^(1/24) factor)==== | ====Dedekind eta η (without the q^(1/24) factor)==== | ||
[https://oeis.org/A010815 A010815] 1, -1, -1, 0, 0, 1, 0, 1, 0, 0, 0, 0, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 1 | [https://oeis.org/A010815 A010815] 1, -1, -1, 0, 0, 1, 0, 1, 0, 0, 0, 0, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 1 | ||
Line 49: | Line 50: | ||
Euler transform of period 4: [1,-1,1,0] | Euler transform of period 4: [1,-1,1,0] | ||
EPSIG="[2,2;4,-1;1,-1]" | EPSIG="[2,2;4,-1;1,-1]" | ||
====Ramanujan f==== | ==== Ramanujan f ==== | ||
[https://oeis.org/A121373 A121373] 1, 1, -1, 0, 0, -1, 0, -1, 0, 0, 0, 0, -1, 0, 0, 1 | [https://oeis.org/A121373 A121373] 1, 1, -1, 0, 0, -1, 0, -1, 0, 0, 0, 0, -1, 0, 0, 1 | ||
a(n) = (-1)^n * [https://oeis.org/A010815 A010815](n) | a(n) = (-1)^n * [https://oeis.org/A010815 A010815](n) | ||
Line 62: | Line 63: | ||
====Ramanujan a cubic AGM theta==== | ====Ramanujan a cubic AGM theta==== | ||
[https://oeis.org/A004016 A004016] 1, 6, 0, 6, 6, 0, 0, 12, 0, 6, 0, 0, 6, 12, 0, 0, 6 | [https://oeis.org/A004016 A004016] 1, 6, 0, 6, 6, 0, 0, 12, 0, 6, 0, 0, 6, 12, 0, 0, 6 | ||
G.f.: theta_3(q) * theta_3(q^3) + theta_2(q) * theta_2(q^3) | G.f.: theta_3(q)*theta_3(q^3) + theta_2(q)*theta_2(q^3) | ||
( | G.f.: phi(x)*phi(x^3) + 4*x*psi(x^2)*psi(x^6) | ||
====Ramanujan b cubic AGM theta==== | ==== Ramanujan b cubic AGM theta==== | ||
[https://oeis.org/A005928 A005928] 1, -3, 0, 6, -3, 0, 0, -6, 0, 6, 0, 0, 6, -6, 0, 0, -3 | [https://oeis.org/A005928 A005928] 1, -3, 0, 6, -3, 0, 0, -6, 0, 6, 0, 0, 6, -6, 0, 0, -3 | ||
G.f.: eta(q)^3 / (eta(q^3) | G.f.: eta(q)^3/(eta(q^3) | ||
Euler transform of period 3: [-3,-3,-2] | Euler transform of period 3: [-3,-3,-2] | ||
EPSIG="[1,3;3,-1]" | EPSIG="[1,3;3,-1]" | ||
====Ramanujan c cubic AGM theta==== | ==== Ramanujan c cubic AGM theta==== | ||
[https://oeis.org/A005882 A005882] 3, 3, 6, 0, 6, 3, 6, 0, 3, 6, 6, 0, 6, 0, 6, 0, 9, 6, 0 | [https://oeis.org/A005882 A005882] 3, 3, 6, 0, 6, 3, 6, 0, 3, 6, 6, 0, 6, 0, 6, 0, 9, 6, 0 | ||
G.f.: 3 * eta(q^3)^3 / eta(q) | G.f.: 3*eta(q^3)^3/eta(q) | ||
3 * (Euler transform of period 3: [-3,-3,-2]) | 3 * (Euler transform of period 3: [-3,-3,-2]) | ||
EPSIG="[3,3;1,-1]" Q="-1/3" F=3 | EPSIG="[3,3;1,-1]" Q="-1/3" F=3 | ||
=== Eisenstein series=== | |||
====Ramanujan P(q) = E_2 ==== | ====Ramanujan P(q) = E_2 ==== | ||
[https://oeis.org/A006352 A006352] 1, -24, -72, -96, -168, -144, -288, -192, -360 | [https://oeis.org/A006352 A006352] 1, -24, -72, -96, -168, -144, -288, -192, -360 | ||
a(n) = -24*sigma(n) | a(n) = -24*sigma(n) | ||
G.f.: 1 + 24 *q*deriv(eta(q))/eta(q) | G.f.: 1 + 24 *q*deriv(eta(q))/eta(q) | ||
====Ramanujan Q(q) = E_4 ==== | ==== Ramanujan Q(q) = E_4 ==== | ||
[https://oeis.org/A004009 A004009] 1, 240, 2160, 6720, 17520, 30240, 60480, 82560, 140400 | [https://oeis.org/A004009 A004009] 1, 240, 2160, 6720, 17520, 30240, 60480, 82560, 140400 | ||
G.f.: (eta(q)^24 + 256*eta(q^2)^24) / (eta(q)*eta(q^2))^8 | G.f.: (eta(q)^24 + 256*eta(q^2)^24) / (eta(q)*eta(q^2))^8 | ||
EPOLY="[1,24]+256*[2,24;1,-8;2,-8]" | EPOLY="[1,24]+256*[2,24;1,-8;2,-8]" | ||
====Ramanujan R(q) = E_6 ==== | ==== Ramanujan R(q) = E_6 ==== | ||
[https://oeis.org/A013973 A013973] 1, -504, -16632, -122976, -532728, -1575504, -4058208, -8471232 | [https://oeis.org/A013973 A013973] 1, -504, -16632, -122976, -532728, -1575504, -4058208, -8471232 | ||
a(0) = 1, for n >= 1: a(n) = -504* | a(0) = 1, for n >= 1: a(n) = -504*sigma_5(n) | ||
G.f.: (eta(q)^8 + 32*eta(q^4)^8) * (eta(q)^16 - 512*eta(q)^8*eta(q^4)^8 - 8192*eta(q^4)^16) / eta(q^2)^12 | G.f.: (eta(q)^8 + 32*eta(q^4)^8) * (eta(q)^16 - 512*eta(q)^8*eta(q^4)^8 - 8192*eta(q^4)^16) / eta(q^2)^12 | ||
"[1,8]+32*[4,8]" convolved with "[1,16;2,-12]-512*[1,8;4,8;2,-12]-8192*[4,16;2,-12]" | "[1,8]+32*[4,8]" convolved with "[1,16;2,-12]-512*[1,8;4,8;2,-12]-8192*[4,16;2,-12]" | ||
==== E_8 ==== | |||
[https://oeis.org/A008410 A008410] 1, 480, 61920, 1050240, 7926240, 37500480, 135480960 | |||
a(0) = 1, for n >= 1: a(n) = 480*sigma_7(n) | |||
G.f.: (theta2(q)^16 + theta3(q)^16 + theta4(q)^16)/2. | |||
G.f.: ((eta(q)^24 + 256*eta(q^2)^24) / (eta(q)*eta(q^2))^8)^2 | |||
"[1,24;1,-8;2,-8]+256*[2,24;1,-8;2,-8]" squared | |||
===Leading power of q factor (pqf) === | ===Leading power of q factor (pqf) === | ||
Some of the generating functions have an additional power of q factor, in order to normalize the leading coefficient to <code>q^0</code>. | Some of the generating functions have an additional power of q factor, in order to normalize the leading coefficient to <code>q^0</code>. |
Revision as of 10:31, 3 October 2024
Eta product signatures (EPSIG)
The coefficient sequences for generating functions that are products of the eta function can be computed conveniently by an Euler transform of some periodic integer sequence. Following Michael Somos, we describe an eta product by a matrix resp. a list of pairs (qi, ei) of the form
[q1,e1;q2,e2;q3,e3;...]
The pairs are separated by ";".
- The qi are the powers of the argument q inside the eta function , and
- the ei are the powers of the eta functions. Only these can be negative.
The following sections contain a number of examples.
The order of the pairs is irrelevant for the computation of the period, but see the section about normalization, below. Once they are normalized, these signatures can be sorted and stored in a database table. The original expression of eta functions can be reconstructed from them, while in the generated periods the original structure is lost.
The generation of a period from an EPSIG, the following Euler transform and the generation of the coefficients is implemented in transform/EtaProductSequence.java as part of project jOEIS of Sean A. Irvine.
Common generating functions
Partition numbers
A000041 1, 1, 2, 3, 5, 7, 11, 15, 22, 30, 42, 56, 77, 101, 135, 176, 231 Euler transform of period 1: [1] EPSIG="[1,-1]" Q="1/24"
Dedekind eta η (without the q^(1/24) factor)
A010815 1, -1, -1, 0, 0, 1, 0, 1, 0, 0, 0, 0, -1, 0, 0, -1, 0, 0, 0, 0, 0, 0, 1 G.f.: eta(q) Euler transform of period 1: [-1] EPSIG="[1,1]"
Jacobi theta_2 θ_2
A089800 2, 0, 2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2 ... = theta_2(q)/q^(1/4)
Jacobi theta_3 θ_3, Ramanujan phi φ
A000122 1, 2, 0, 0, 2, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2 a(0) = 1, for n >= 1: a(n) = 2 if n is a square, otherwise 0. G.f.: eta(q^2)^5/(eta(q)*eta(q^4))^2 Euler transform of period 4: [2,-3,2,-1] EPSIG="[2,5;4,-2;1,-2]"
Jacobi theta_4 θ_4
A002448 1, -2, 0, 0, 2, 0, 0, 0, 0, -2, 0, 0, 0, 0, 0, 0, 2 a(0) = 1, for n >= 1: a(n) = 2 * (-1)^sqrt(n) if n is a square, otherwise 0. G.f.: eta(q)^2/eta(q^2) Euler transform of period 2: [2,-1] EPSIG="[1,2;2,-1]"
Ramanujan psi ψ
A010054 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0 a(n) = 1 if n is a triangular number, otherwise 0. G.f.: q^(-1/8) * eta(q^2)^2/eta(q) Euler transform of period 2: [1,-1] EPSIG="[2,2;1,-1]"
Ramanujan chi χ
A000700 1, 1, 0, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 4, 5 G.f.: q^(1/24) * eta(q^2)^2/(eta(q)*eta(q^4)) Euler transform of period 4: [1,-1,1,0] EPSIG="[2,2;4,-1;1,-1]"
Ramanujan f
A121373 1, 1, -1, 0, 0, -1, 0, -1, 0, 0, 0, 0, -1, 0, 0, 1 a(n) = (-1)^n * A010815(n) G.f.: q^(-1/24) * eta(q^2)^3/(eta(q)*eta(q^4)) Euler transform of period 4: [1,-2,1,-1] EPSIG="[2,3;4,-1;1,-1]"
Ramanujan tau τ
A000594 1, -24, 252, -1472, 4830, -6048, -16744, 84480, -113643, -115920, 534612 G.f.: eta(q)^24 Euler transform of period 1: [-24] EPSIG="[1,24]"
Ramanujan a cubic AGM theta
A004016 1, 6, 0, 6, 6, 0, 0, 12, 0, 6, 0, 0, 6, 12, 0, 0, 6 G.f.: theta_3(q)*theta_3(q^3) + theta_2(q)*theta_2(q^3) G.f.: phi(x)*phi(x^3) + 4*x*psi(x^2)*psi(x^6)
Ramanujan b cubic AGM theta
A005928 1, -3, 0, 6, -3, 0, 0, -6, 0, 6, 0, 0, 6, -6, 0, 0, -3 G.f.: eta(q)^3/(eta(q^3) Euler transform of period 3: [-3,-3,-2] EPSIG="[1,3;3,-1]"
Ramanujan c cubic AGM theta
A005882 3, 3, 6, 0, 6, 3, 6, 0, 3, 6, 6, 0, 6, 0, 6, 0, 9, 6, 0 G.f.: 3*eta(q^3)^3/eta(q) 3 * (Euler transform of period 3: [-3,-3,-2]) EPSIG="[3,3;1,-1]" Q="-1/3" F=3
Eisenstein series
Ramanujan P(q) = E_2
A006352 1, -24, -72, -96, -168, -144, -288, -192, -360 a(n) = -24*sigma(n) G.f.: 1 + 24 *q*deriv(eta(q))/eta(q)
Ramanujan Q(q) = E_4
A004009 1, 240, 2160, 6720, 17520, 30240, 60480, 82560, 140400 G.f.: (eta(q)^24 + 256*eta(q^2)^24) / (eta(q)*eta(q^2))^8 EPOLY="[1,24]+256*[2,24;1,-8;2,-8]"
Ramanujan R(q) = E_6
A013973 1, -504, -16632, -122976, -532728, -1575504, -4058208, -8471232 a(0) = 1, for n >= 1: a(n) = -504*sigma_5(n) G.f.: (eta(q)^8 + 32*eta(q^4)^8) * (eta(q)^16 - 512*eta(q)^8*eta(q^4)^8 - 8192*eta(q^4)^16) / eta(q^2)^12 "[1,8]+32*[4,8]" convolved with "[1,16;2,-12]-512*[1,8;4,8;2,-12]-8192*[4,16;2,-12]"
E_8
A008410 1, 480, 61920, 1050240, 7926240, 37500480, 135480960 a(0) = 1, for n >= 1: a(n) = 480*sigma_7(n) G.f.: (theta2(q)^16 + theta3(q)^16 + theta4(q)^16)/2. G.f.: ((eta(q)^24 + 256*eta(q^2)^24) / (eta(q)*eta(q^2))^8)^2 "[1,24;1,-8;2,-8]+256*[2,24;1,-8;2,-8]" squared
Leading power of q factor (pqf)
Some of the generating functions have an additional power of q factor, in order to normalize the leading coefficient to q^0
.
- Example A226862:
G.f.: q^(-1/6) * eta(q^4) * eta(q^6)^5 / (eta(q^3) * eta(q^12))^2 EPSIG="[4,1;6,5;3,-2;12,-2]"
For all pairs we multiply the q power with the eta power and add the results, giving 4*1 + 6*5 - 3*2 - 12*2 = 4 + 30 - 6 - 24 = 4. This is the negative numerator of the pqf (expanded for denominator 24).
- Example A286813:
G.f.: q^(-9/8) * (eta(q^2) * eta(q^16))^2 / (eta(q) * eta(q^8)) EPSIG="[2,2;16,2;1,-1;8,-1]" gives 2*2 * 16*2 - 1*1 - 8*1 = 36 - 9 = 27 and pqf = q^(-27/24)
- Example A286134 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, -1, -1, -1
G.f.: q^(-1/2) * eta(q^5) * eta(q^6) * eta(q^7) * eta(q^210) EPSIG="[5,1;6,1;7,1;210,1]" gives 18 + 210 = 228 and pqf = q^(-228/24) = -9 -1/2.
The sequence is shifted right by 9 positions in this case.
Computation of the period from an EPSIG
This algorithm is rather straightforward. It uses an array of integers that are usually small. The length of the array is the least common multiple (LCM) of all qi. The array with indexes [0..lcm-1] is initialized with zeros.
- For all pairs (qi, ei)
- Build a block of qi - 1 zeros, followed by -1 * ei.
- Add a sufficient concatenation of such blocks onto the whole array.
- The resulting array is the period for the Euler transform.
As an example, we derive the period of the theta_3 function above from its EPSIG [2,5;4,-2;1,-2]
. The period length is LCM(2,1,4) = 4.
pair 2,5 -> 0 -5 0 -5 pair 4,-2 -> 0 0 0 2 pair 1,-2 -> 2 2 2 2 -------------------------- sum = period = [2,-3, 2,-1]
This algorithm for expanding a list of powers of theta_3 functions is realized in theta3_epsig.pl
.
Normalization of an EPSIG
For long lists of generating functions it is convenient to require all EPSIGs to be normalized, such that they can be tested for equality and can be sorted. We use the following rules:
- The sublist of pairs with positive ei comes before the sublist with negative ei.
- Inside a sublist the first components qi are in descending order.
- Successive pairs with the same qi are combined into a single pair with the sum of the ei as second component.
The normalization rules are implemented in norm_epsig.pl
.
Multiplication of two EPSIGs
Two EPSIGs could be multiplied by concatenating their list of pairs. It is convenient, however, to combine all occurrences of specific qi by adding the corresponding eta exponents e.
Exponentiation of an EPSIG
An EPSIG is taken to a power m by multiplying all ei (the second components in the pairs) by m. The exponent may be 1/2 for the square root, or any other fraction mn/md as long as the qi are all divisible by md.