Kassel–Reutenauer polynomials
DefinitionThe Kassel–Reutenauer coefficients \(a_{n,i}\)#✓fully proved
For natural numbers \(n\) and \(i\), \(a_{n,i}\) is the number of positive divisors \(d\) of \(n\) with
equivalently with \(d(d - 2i) \le 2n\) and \(n < 2d(d - i)\). For \(n = 0\) the set of divisors is taken to be empty, so \(a_{0,i} = 0\).
public def kasselReutenauerCoeff (n i : ℕ) : ℕ :=
((Nat.divisors n).filter fun d => d * (d - 2 * i) ≤ 2 * n ∧ n < 2 * d * (d - i)).card
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, display (2.3), quoting their earlier Theorem 1.3 of Complete determination of the zeta function of the Hilbert scheme of n points on a two-dimensional torus.
DefinitionKassel–Reutenauer polynomial#✓fully proved
For a natural number \(n\), the Kassel–Reutenauer polynomial \(\bar P_n(X) \in \mathbb{Z}[X]\) is defined by
where \(a_{n,i}\) is the number of divisors \(d\) of \(n\) with \(d(d - 2i) \le 2n\) and \(n < 2d(d - i)\) (equivalently, \((i + \sqrt{2n + i^2})/2 < d \le i + \sqrt{2n + i^2}\)), and \(\bar T_i\) is the monic Chebyshev polynomial: \(\bar T_0 = 2\), \(\bar T_1 = X\) and \(\bar T_{i+2} = X \bar T_{i+1} - \bar T_i\). For \(n = 0\) the sum is empty and the set of divisors of \(0\) is taken to be empty, so \(\bar P_0 = 0\).
In the paper, \(\bar P_n\) is characterized for \(n \ge 1\) by \(\bar P_n(q + q^{-1}) = P_n(q)/q^{n-1}\), where \((q - 1)^2 P_n(q)\) is the number of ideals of codimension \(n\) of \(\mathbb{F}_q[x, y, x^{-1}, y^{-1}]\); the definition here uses the explicit expansion (2.4) of the paper instead.
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
public def kasselReutenauerCoeff (n i : ℕ) : ℕ :=
((Nat.divisors n).filter fun d => d * (d - 2 * i) ≤ 2 * n ∧ n < 2 * d * (d - i)).card
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:61
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, (2.1)–(2.4) and Table 2.
Uses 1 · Used by 16
DefinitionPartial sums of the monic Chebyshev polynomials#✓fully proved
For \(n \ge 0\), \(F_n(X)\) is the polynomial with integer coefficients
where \(\bar T_k \in \mathbb{Z}[X]\) is the monic Chebyshev polynomial of the source, that is, the polynomial with \(\bar T_k(q + q^{-1}) = q^k + q^{-k}\); equivalently \(\bar T_0 = 2\), \(\bar T_1 = X\) and \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\). Thus \(F_0 = 1\) and \(F_n = F_{n-1} + \bar T_n\) for \(n \ge 1\).
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, (3.6)–(3.7).
Used by 11
TheoremSmall values of the coefficients \(a_{n,i}\)#✓fully proved
The Kassel–Reutenauer coefficients satisfy \(a_{1,0} = 1\), \(a_{2,0} = a_{2,1} = 1\), \(a_{3,0} = 0\) and \(a_{3,1} = a_{3,2} = 1\).
public theorem kasselReutenauerCoeff_small :
kasselReutenauerCoeff 1 0 = 1 ∧ kasselReutenauerCoeff 2 0 = 1 ∧
kasselReutenauerCoeff 2 1 = 1 ∧ kasselReutenauerCoeff 3 0 = 0 ∧
kasselReutenauerCoeff 3 1 = 1 ∧ kasselReutenauerCoeff 3 2 = 1
public def kasselReutenauerCoeff (n i : ℕ) : ℕ :=
((Nat.divisors n).filter fun d => d * (d - 2 * i) ≤ 2 * n ∧ n < 2 * d * (d - i)).card
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:61
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, (2.3) and Table 2.
Uses 1
TheoremThe first Kassel–Reutenauer polynomial#✓fully proved
The Kassel–Reutenauer polynomial \(\bar P_1\) is the constant polynomial \(1\).
public theorem kasselReutenauerPoly_one : kasselReutenauerPoly 1 = 1
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Table 2.
Uses 2
TheoremThe Kassel–Reutenauer polynomial \(\bar P_2\)#✓fully proved
The Kassel–Reutenauer polynomial \(\bar P_2(X) \in \mathbb{Z}[X]\) equals \(X + 1\).
public theorem kasselReutenauerPoly_two : kasselReutenauerPoly 2 = X + 1
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Table 2.
Uses 2
TheoremThe third Kassel–Reutenauer polynomial#✓fully proved
The Kassel–Reutenauer polynomial \(\bar P_3\) is \(X^2 + X - 2\).
public theorem kasselReutenauerPoly_three : kasselReutenauerPoly 3 = X ^ 2 + X - 2
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Table 2.
Uses 2
TheoremZeroth partial sum of the Chebyshev polynomials#✓fully proved
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). Then \(F_0 = 1\).
public theorem chebyshevCPartialSum_zero : chebyshevCPartialSum 0 = 1
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, (3.6).
Uses 1 · Used by 1
TheoremSuccessive partial sums of the Chebyshev polynomials#✓fully proved
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). For every natural number \(n\), \(F_{n+1} = F_n + \bar T_{n+1}\).
public theorem chebyshevCPartialSum_succ (n : ℕ) :
chebyshevCPartialSum (n + 1) = chebyshevCPartialSum n + Chebyshev.C ℤ (n + 1 : ℕ)
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, (3.6).
Uses 1 · Used by 1
TheoremFirst and second partial sums of the Chebyshev polynomials#✓fully proved
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). Then \(F_1 = X + 1\) and \(F_2 = X^2 + X - 1\).
public theorem chebyshevCPartialSum_one_two :
chebyshevCPartialSum 1 = X + 1 ∧ chebyshevCPartialSum 2 = X ^ 2 + X - 1
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Table 4.
TheoremPositivity of the Kassel–Reutenauer polynomials at integers \(N \ge 2\)#●ready to prove
For every \(n \ge 1\) and every integer \(N \ge 2\), the Kassel–Reutenauer polynomial \(\bar P_n\) satisfies \(\bar P_n(N) > 0\).
public theorem_wanted kasselReutenauerPoly_eval_pos (n : ℕ) (hn : 1 ≤ n) (N : ℤ) (hN : 2 ≤ N) :
0 < (kasselReutenauerPoly n).eval N
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 2.1 (
jis-2026-26.4.4-prop-1).
Uses 1
TheoremMultiplicativity at roots of unity of order at most 4#●ready to prove
Let \(q \in \mathbb{C}\) be a primitive \(d\)-th root of unity with \(d \in \{1, 2, 3, 4\}\), and let \(\bar P_n\) be the Kassel–Reutenauer polynomials. Then for all coprime integers \(m, n \ge 1\),
Since \(|q| = 1\), \(|\bar P_n(q + q^{-1})|\) is the absolute value \(|P_n(q)|\) of the paper's polynomial \(P_n(q) = q^{n-1} \bar P_n(q + q^{-1})\), so \(n \mapsto |P_n(q)|\) is multiplicative.
public theorem_wanted kasselReutenauerPoly_norm_multiplicative_rootOfUnity (q : ℂ) (d : ℕ)
(hd : d = 1 ∨ d = 2 ∨ d = 3 ∨ d = 4) (hq : IsPrimitiveRoot q d) (m n : ℕ) (hm : 1 ≤ m)
(hn : 1 ≤ n) (hmn : m.Coprime n) :
‖aeval (q + q⁻¹) (kasselReutenauerPoly (m * n))‖ =
‖aeval (q + q⁻¹) (kasselReutenauerPoly m)‖ * ‖aeval (q + q⁻¹) (kasselReutenauerPoly n)‖
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 2.2 (
jis-2026-26.4.4-prop-2).
Uses 1
TheoremAlmost multiplicativity at a primitive sixth root of unity#●ready to prove
Let \(\omega \in \mathbb{C}\) be a primitive sixth root of unity, and for \(n \ge 1\) let \(v_n = |\bar P_n(\omega + \omega^{-1})|\), where \(\bar P_n\) is the Kassel–Reutenauer polynomial. Let \(m, n \ge 1\) be coprime. Then \(v_m v_n = v_{mn}\) if \((m \bmod 3, n \bmod 3)\) is \((0, 1)\), \((1, 1)\) or \((1, 2)\); \(v_m v_n = 2 v_{mn}\) if \((m \bmod 3, n \bmod 3) = (0, 2)\); and \(v_m v_n = 4 v_{mn}\) if \((m \bmod 3, n \bmod 3) = (2, 2)\). The residue pairs are ordered: nothing is claimed for the swapped pairs.
Since \(|\omega| = 1\), \(v_n\) is the absolute value \(|P_n(\omega)|\) of the paper's polynomial \(P_n(q) = q^{n-1} \bar P_n(q + q^{-1})\).
public theorem_wanted kasselReutenauerPoly_norm_almost_multiplicative_sixth (ω : ℂ)
(hω : IsPrimitiveRoot ω 6) (m n : ℕ) (hm : 1 ≤ m) (hn : 1 ≤ n) (hmn : m.Coprime n) :
((m % 3 = 0 ∧ n % 3 = 1 ∨ m % 3 = 1 ∧ n % 3 = 1 ∨ m % 3 = 1 ∧ n % 3 = 2) →
‖aeval (ω + ω⁻¹) (kasselReutenauerPoly m)‖ * ‖aeval (ω + ω⁻¹) (kasselReutenauerPoly n)‖ =
‖aeval (ω + ω⁻¹) (kasselReutenauerPoly (m * n))‖) ∧
(m % 3 = 0 ∧ n % 3 = 2 →
‖aeval (ω + ω⁻¹) (kasselReutenauerPoly m)‖ * ‖aeval (ω + ω⁻¹) (kasselReutenauerPoly n)‖ =
2 * ‖aeval (ω + ω⁻¹) (kasselReutenauerPoly (m * n))‖) ∧
(m % 3 = 2 ∧ n % 3 = 2 →
‖aeval (ω + ω⁻¹) (kasselReutenauerPoly m)‖ * ‖aeval (ω + ω⁻¹) (kasselReutenauerPoly n)‖ =
4 * ‖aeval (ω + ω⁻¹) (kasselReutenauerPoly (m * n))‖)
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 2.3 (
jis-2026-26.4.4-prop-3).
Uses 1
TheoremMultiplicativity of \(\bar P_n^2\) modulo \(X (X + 1) (X^2 - 4)\)#●ready to prove
Let \(\bar P_n\) be the Kassel–Reutenauer polynomials. For coprime integers \(m, n \ge 1\), the polynomial \(\bar P_{mn}(X)^2 - \bar P_m(X)^2 \bar P_n(X)^2\) is divisible in \(\mathbb{Z}[X]\) by \(X (X + 1) (X^2 - 4)\); if moreover \((m \bmod 3, n \bmod 3)\) is \((0, 1)\), \((1, 1)\) or \((1, 2)\), it is divisible by \(X (X + 1) (X^2 - 4) (X - 1)\).
public theorem_wanted kasselReutenauerPoly_sq_sub_dvd (m n : ℕ) (hm : 1 ≤ m) (hn : 1 ≤ n)
(hmn : m.Coprime n) :
X * (X + 1) * (X ^ 2 - 4) ∣
kasselReutenauerPoly (m * n) ^ 2 - kasselReutenauerPoly m ^ 2 * kasselReutenauerPoly n ^ 2 ∧
((m % 3 = 0 ∧ n % 3 = 1 ∨ m % 3 = 1 ∧ n % 3 = 1 ∨ m % 3 = 1 ∧ n % 3 = 2) →
X * (X + 1) * (X ^ 2 - 4) * (X - 1) ∣
kasselReutenauerPoly (m * n) ^ 2 - kasselReutenauerPoly m ^ 2 * kasselReutenauerPoly n ^ 2)
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Corollary 2.4 (
jis-2026-26.4.4-cor-4).
Uses 1
TheoremIntegers at which \(|\bar P_n|\) is multiplicative#●ready to prove
Let \(\bar P_n\) be the Kassel–Reutenauer polynomial and let \(N\) be an integer. Then \(|\bar P_{mn}(N)| = |\bar P_m(N)|\,|\bar P_n(N)|\) for all coprime positive integers \(m\) and \(n\) if and only if \(N \in \{-2, -1, 0, 2\}\).
public theorem_wanted kasselReutenauerPoly_abs_eval_multiplicative_iff (N : ℤ) :
(∀ m n : ℕ, 1 ≤ m → 1 ≤ n → m.Coprime n →
|(kasselReutenauerPoly (m * n)).eval N| =
|(kasselReutenauerPoly m).eval N| * |(kasselReutenauerPoly n).eval N|) ↔
N = -2 ∨ N = -1 ∨ N = 0 ∨ N = 2
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 2.5 (
jis-2026-26.4.4-prop-5).
Uses 1
TheoremPositivity of the monic Chebyshev polynomials#●ready to prove
Let \(\bar T_k \in \mathbb{R}[X]\) be the monic Chebyshev polynomials, given by \(\bar T_0 = 2\), \(\bar T_1 = X\) and \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\). Then \(\bar T_k(x) > 0\) for every natural number \(k\) and every real number \(x \ge 2\).
public theorem_wanted chebyshevC_eval_pos_of_two_le (k : ℕ) (x : ℝ) (hx : 2 ≤ x) :
0 < (Chebyshev.C ℝ k).eval x
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 3.1 (
jis-2026-26.4.4-prop-6).
TheoremTrace formula for the monic Chebyshev polynomials#●ready to prove
Let \(\bar T_k \in \mathbb{Z}[X]\) be the monic Chebyshev polynomials, given by \(\bar T_0 = 2\), \(\bar T_1 = X\) and \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\), and let \(M\) be the \(2 \times 2\) matrix over \(\mathbb{Z}[X]\) with rows \((X, -1)\) and \((1, 0)\). Then \(\bar T_k = \operatorname{tr}(M^k)\) for every natural number \(k\).
public theorem_wanted chebyshevC_eq_trace_pow (k : ℕ) :
Chebyshev.C ℤ k = Matrix.trace ((!![X, -1; 1, 0] : Matrix (Fin 2) (Fin 2) ℤ[X]) ^ k)
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 3.2 (
jis-2026-26.4.4-prop-7).
TheoremGenerating function of the partial sums of Chebyshev polynomials#●ready to prove
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). In the ring \(\mathbb{Z}[X][[t]]\) of formal power series in \(t\) over \(\mathbb{Z}[X]\),
Since \(1 - X t + t^2\) is a unit in \(\mathbb{Z}[X][[t]]\), this is equivalent to \(\sum_{n \ge 0} F_n t^n = (1 + t)/(1 - X t + t^2)\).
public theorem_wanted chebyshevCPartialSum_generatingFunction :
(1 - PowerSeries.C X * PowerSeries.X + PowerSeries.X ^ 2) *
PowerSeries.mk (fun n => chebyshevCPartialSum n) =
(1 + PowerSeries.X : PowerSeries ℤ[X])
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 3.3 (
jis-2026-26.4.4-prop-8).
Uses 1
TheoremBinomial expansion of the partial sums of Chebyshev polynomials#●ready to prove
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). For every \(n \ge 1\),
public theorem_wanted chebyshevCPartialSum_eq_binomial_sum (n : ℕ) (hn : 1 ≤ n) :
chebyshevCPartialSum n =
∑ m ∈ Finset.range (n / 2 + 1), (-1 : ℤ[X]) ^ m * ((n - m).choose m : ℤ[X]) * X ^ (n - 2 * m) +
∑ m ∈ Finset.range ((n - 1) / 2 + 1),
(-1 : ℤ[X]) ^ m * ((n - m - 1).choose m : ℤ[X]) * X ^ (n - 2 * m - 1)
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 3.4 (
jis-2026-26.4.4-prop-9).
Uses 1
TheoremLeading coefficients of the partial sums of Chebyshev polynomials#●ready to prove
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). For every \(n \ge 5\), the polynomial
is either zero or has degree less than \(n - 5\).
Here \(\binom{n-2}{2} = (n-2)(n-3)/2\) and \(\binom{n-3}{2} = (n-3)(n-4)/2\).
public theorem_wanted chebyshevCPartialSum_top_coeffs (n : ℕ) (hn : 5 ≤ n) :
(chebyshevCPartialSum n -
(X ^ n + X ^ (n - 1) - ((n - 1 : ℕ) : ℤ[X]) * X ^ (n - 2) - ((n - 2 : ℕ) : ℤ[X]) * X ^ (n - 3) +
((n - 2).choose 2 : ℤ[X]) * X ^ (n - 4) + ((n - 3).choose 2 : ℤ[X]) * X ^ (n - 5))).degree <
((n - 5 : ℕ) : WithBot ℕ)
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Corollary 3.5 (
jis-2026-26.4.4-cor-10).
Uses 1
TheoremThree-term recurrence for the partial sums of Chebyshev polynomials#●ready to prove
Let \(F_n = 1 + \sum_{k=1}^{n} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). For every \(k \ge 1\), \(F_{k+1} = X F_k - F_{k-1}\).
public theorem_wanted chebyshevCPartialSum_recurrence (k : ℕ) (hk : 1 ≤ k) :
chebyshevCPartialSum (k + 1) = X * chebyshevCPartialSum k - chebyshevCPartialSum (k - 1)
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 3.6 (
jis-2026-26.4.4-prop-11).
Uses 1
TheoremApproximation of \(\bar P_n\) by \(F_{n-1}\)#●ready to prove
Let \(\bar P_n\) be the Kassel–Reutenauer polynomials, and for \(r \ge 0\) let \(F_r(X) = 1 + \sum_{j=1}^{r} \bar T_j(X)\) be the partial sum of the monic Chebyshev polynomials \(\bar T_j\). For \(n \ge 2\), every nonzero coefficient of \(\bar P_n(X) - F_{n-1}(X)\) sits in a degree \(k\) with \(2k + 2 < n\); that is, the difference has degree less than \(n/2 - 1\).
public theorem_wanted kasselReutenauerPoly_sub_chebyshevCPartialSum_coeff (n : ℕ) (hn : 2 ≤ n)
(k : ℕ) (hk : (kasselReutenauerPoly n - chebyshevCPartialSum (n - 1)).coeff k ≠ 0) :
2 * k + 2 < n
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Theorem 4.1 (
jis-2026-26.4.4-thm-12).
Uses 2
TheoremTop coefficients of the Kassel–Reutenauer polynomials#●ready to prove
For \(n \ge 10\), the polynomial
has degree less than \(n - 6\), where \(\bar P_n\) is the Kassel–Reutenauer polynomial. That is, up to terms of degree at most \(n - 7\), \(\bar P_n(X)\) equals \(X^{n-1} + X^{n-2} - (n-2) X^{n-3} - (n-3) X^{n-4} + \frac{(n-3)(n-4)}{2} X^{n-5} + \frac{(n-4)(n-5)}{2} X^{n-6}\).
public theorem_wanted kasselReutenauerPoly_top_coeffs (n : ℕ) (hn : 10 ≤ n) :
(kasselReutenauerPoly n -
(X ^ (n - 1) + X ^ (n - 2) - ((n - 2 : ℕ) : ℤ[X]) * X ^ (n - 3) -
((n - 3 : ℕ) : ℤ[X]) * X ^ (n - 4) + ((n - 3).choose 2 : ℤ[X]) * X ^ (n - 5) +
((n - 4).choose 2 : ℤ[X]) * X ^ (n - 6))).degree <
((n - 6 : ℕ) : WithBot ℕ)
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Corollary 4.2 (
jis-2026-26.4.4-cor-13).
Uses 1
TheoremThe top coefficients \(a_{n,i}\) equal \(1\)#●ready to prove
Let \(n \ge 1\) and let \(i\) be a natural number with \(n \le 2i + 2\) and \(i \le n - 1\); equivalently \(n/2 - 1 \le i \le n - 1\), where \(n/2\) is the rational number, not the integer quotient. Then the Kassel–Reutenauer coefficient \(a_{n,i}\) equals \(1\).
public theorem_wanted kasselReutenauerCoeff_eq_one (n i : ℕ) (hn : 1 ≤ n) (hi : n ≤ 2 * i + 2)
(hi' : i ≤ n - 1) : kasselReutenauerCoeff n i = 1
public def kasselReutenauerCoeff (n i : ℕ) : ℕ :=
((Nat.divisors n).filter fun d => d * (d - 2 * i) ≤ 2 * n ∧ n < 2 * d * (d - i)).card
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:61
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Lemma 4.3 (
jis-2026-26.4.4-lem-14).
Uses 1
TheoremOdd-divisor formula for the Kassel–Reutenauer polynomials#●ready to prove
Let \(n \ge 1\), and for each odd divisor \(d\) of \(n\) put \(r_n(d) = n/d - (d+1)/2\), an integer. Then the Kassel–Reutenauer polynomial \(\bar P_n\) satisfies
where \(F_r(X) = 1 + \sum_{k=1}^{r} \bar T_k(X)\) is the partial sum of the monic Chebyshev polynomials \(\bar T_k\).
public theorem_wanted kasselReutenauerPoly_eq_oddDivisor_sum (n : ℕ) (hn : 1 ≤ n) :
kasselReutenauerPoly n =
∑ d ∈ (Nat.divisors n).filter (fun d => Odd d ∧ 0 ≤ ((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)),
chebyshevCPartialSum (((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)).toNat -
∑ d ∈ (Nat.divisors n).filter (fun d => Odd d ∧ ((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ) < 0),
chebyshevCPartialSum (-(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)) - 1).toNat
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Theorem 4.4 (
jis-2026-26.4.4-thm-16).
Uses 2
Theorem\(\bar P_n\) equals \(F_{n-1}\) exactly for powers of two#●ready to prove
Let \(n \ge 1\), let \(\bar P_n\) be the Kassel–Reutenauer polynomial, and let \(F_{n-1} = 1 + \sum_{k=1}^{n-1} \bar T_k\) be the partial sum of the monic Chebyshev polynomials. Then \(\bar P_n = F_{n-1}\) if and only if \(n = 2^k\) for some natural number \(k\).
public theorem_wanted kasselReutenauerPoly_eq_chebyshevCPartialSum_iff (n : ℕ) (hn : 1 ≤ n) :
kasselReutenauerPoly n = chebyshevCPartialSum (n - 1) ↔ ∃ k : ℕ, n = 2 ^ k
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Corollary 4.5 (
jis-2026-26.4.4-cor-17).
Uses 2
Theorem\(C_n(q)/q^n\) as a sum over the solutions of \(h(h + 1 + 2a) = 2n\)#●ready to prove
Let \(n \ge 1\), let \(\bar P_n\) be the Kassel–Reutenauer polynomial, and write \(C_n(q)/q^n\) for the Laurent polynomial \((q - 2 + q^{-1})\,\bar P_n(q + q^{-1})\) in \(\mathbb{Z}[q, q^{-1}]\). Then
where the sum runs over the pairs of integers \((h, a)\) with \(1 \le h \le 2n\), \(-n \le a \le n\) and \(h(h + 1 + 2a) = 2n\). Moreover, if \(h, h'\) are positive integers and \(a, a'\) are integers with \(h(h + 1 + 2a) = 2n\), \(h'(h' + 1 + 2a') = 2n\) and \(|a| = |a'|\), then \(h = h'\) and \(a = a'\).
Every pair of integers \((h, a)\) with \(h \ge 1\) and \(h(h + 1 + 2a) = 2n\) satisfies \(h \le 2n\) and \(|a| \le n\), so the sum runs over all such pairs.
public theorem_wanted kasselReutenauer_C_div_pow_eq_sum (n : ℕ) (hn : 1 ≤ n) :
(LaurentPolynomial.T 1 - 2 + LaurentPolynomial.T (-1)) *
aeval (LaurentPolynomial.T 1 + LaurentPolynomial.T (-1) : LaurentPolynomial ℤ)
(kasselReutenauerPoly n) =
∑ p ∈ (Finset.Icc 1 (2 * n) ×ˢ Finset.Icc (-(n : ℤ)) n).filter
(fun p : ℕ × ℤ => (p.1 : ℤ) * (p.1 + 1 + 2 * p.2) = 2 * n),
(-1) ^ p.1 * (LaurentPolynomial.T p.2 + LaurentPolynomial.T (-p.2)) ∧
∀ h h' : ℕ, ∀ a a' : ℤ, 1 ≤ h → 1 ≤ h' → (h : ℤ) * (h + 1 + 2 * a) = 2 * n →
(h' : ℤ) * (h' + 1 + 2 * a') = 2 * n → |a| = |a'| → h = h' ∧ a = a'
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Lemma 5.2 (
jis-2026-26.4.4-lem-22).
Uses 1
TheoremIncreasing-sequence and odd-divisor formulas for \(C_n(q)/q^n\)#●ready to prove
Let \(n \ge 1\), let \(\bar P_n\) be the Kassel–Reutenauer polynomial, and write \(C_n(q)/q^n\) for the Laurent polynomial \((q - 2 + q^{-1})\,\bar P_n(q + q^{-1})\) in \(\mathbb{Z}[q, q^{-1}]\). For integers \(h \ge 1\) and \(a\) let \(IS(a, h) = \{a + 1, \dots, a + h\}\).
(i) We have
where the sum runs over the pairs of integers \((h, a)\) with \(1 \le h \le 2n\) and \(-n \le a \le n\) such that the elements of \(IS(a, h)\) sum to \(n\). Moreover, if \(h, h' \ge 1\) and \(a, a'\) are integers such that the elements of \(IS(a, h)\) and those of \(IS(a', h')\) both sum to \(n\), and \(|a| = |a'|\), then \(h = h'\) and \(a = a'\).
(ii) For an odd divisor \(d\) of \(n\) put \(u_d = n/d - (d - 1)/2\) and \(v_d = n/d - (d + 1)/2\). Then
and in the list of the exponents \(u_d, -u_d, v_d, -v_d\) over all odd divisors \(d\) of \(n\), the nonzero entries are pairwise distinct.
Every pair \((h, a)\) with \(h \ge 1\) such that the elements of \(IS(a, h)\) sum to \(n\) satisfies \(h \le 2n\) and \(|a| \le n\), so the sum in (i) runs over all such sequences.
MetaMathlibExt.kasselReutenauer_C_div_pow_increasingSequences · 21 lines
public theorem_wanted kasselReutenauer_C_div_pow_increasingSequences (n : ℕ) (hn : 1 ≤ n) :
((LaurentPolynomial.T 1 - 2 + LaurentPolynomial.T (-1)) *
aeval (LaurentPolynomial.T 1 + LaurentPolynomial.T (-1) : LaurentPolynomial ℤ)
(kasselReutenauerPoly n) =
∑ p ∈ (Finset.Icc 1 (2 * n) ×ˢ Finset.Icc (-(n : ℤ)) n).filter
(fun p : ℕ × ℤ => ∑ j ∈ Finset.Icc (p.2 + 1) (p.2 + p.1), j = n),
(-1) ^ p.1 * (LaurentPolynomial.T p.2 + LaurentPolynomial.T (-p.2))) ∧
(∀ h h' : ℕ, ∀ a a' : ℤ, 1 ≤ h → 1 ≤ h' → ∑ j ∈ Finset.Icc (a + 1) (a + h), j = n →
∑ j ∈ Finset.Icc (a' + 1) (a' + h'), j = n → |a| = |a'| → h = h' ∧ a = a') ∧
((LaurentPolynomial.T 1 - 2 + LaurentPolynomial.T (-1)) *
aeval (LaurentPolynomial.T 1 + LaurentPolynomial.T (-1) : LaurentPolynomial ℤ)
(kasselReutenauerPoly n) =
∑ d ∈ (Nat.divisors n).filter Odd,
(LaurentPolynomial.T (((n / d : ℕ) : ℤ) - ((d - 1) / 2 : ℕ)) +
LaurentPolynomial.T (-((n / d : ℕ) : ℤ) + ((d - 1) / 2 : ℕ)) -
LaurentPolynomial.T (((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)) -
LaurentPolynomial.T (-((n / d : ℕ) : ℤ) + ((d + 1) / 2 : ℕ)))) ∧
((((Nat.divisors n).filter Odd).val.bind (fun d =>
({((n / d : ℕ) : ℤ) - ((d - 1) / 2 : ℕ), -((n / d : ℕ) : ℤ) + ((d - 1) / 2 : ℕ),
((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ), -((n / d : ℕ) : ℤ) + ((d + 1) / 2 : ℕ)} :
Multiset ℤ))).filter (· ≠ 0)).Nodup
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Theorem 5.3 (
jis-2026-26.4.4-thm-23).
Uses 1
TheoremThe absolute coefficient sum of \(C_n\) counts odd divisors#●ready to prove
Let \(n \ge 1\), let \(\bar P_n\) be the Kassel–Reutenauer polynomial, and write \(C_n(q)/q^n\) for the Laurent polynomial \((q - 2 + q^{-1})\,\bar P_n(q + q^{-1})\) in \(\mathbb{Z}[q, q^{-1}]\). Then the sum of the absolute values of the coefficients of \(C_n(q)/q^n\) equals four times the number of odd divisors of \(n\).
Multiplying by \(q^n\) does not change the coefficients, so this is the source's statement about the polynomial \(C_n(q)\).
public theorem_wanted kasselReutenauer_C_abs_coeff_sum (n : ℕ) (hn : 1 ≤ n) :
((LaurentPolynomial.T 1 - 2 + LaurentPolynomial.T (-1)) *
aeval (LaurentPolynomial.T 1 + LaurentPolynomial.T (-1) : LaurentPolynomial ℤ)
(kasselReutenauerPoly n)).coeff.sum (fun _ c => |c|) =
4 * (((Nat.divisors n).filter Odd).card : ℤ)
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Corollary 5.4 (
jis-2026-26.4.4-cor-24).
Uses 1
TheoremLaurent polynomial identity for the partial sums of Chebyshev polynomials#●ready to prove
Let \(F_r = 1 + \sum_{k=1}^{r} \bar T_k \in \mathbb{Z}[X]\) be the partial sums of the monic Chebyshev polynomials \(\bar T_k\) (\(\bar T_0 = 2\), \(\bar T_1 = X\), \(\bar T_{k+2} = X \bar T_{k+1} - \bar T_k\)). For every natural number \(r\), in the ring \(\mathbb{Z}[q, q^{-1}]\) of Laurent polynomials,
public theorem_wanted chebyshevCPartialSum_laurent_identity (r : ℕ) :
(LaurentPolynomial.T ((r : ℤ) + 1) + LaurentPolynomial.T (-(r : ℤ) - 1) -
LaurentPolynomial.T (r : ℤ) - LaurentPolynomial.T (-(r : ℤ)) : LaurentPolynomial ℤ) =
LaurentPolynomial.T (-1) * (LaurentPolynomial.T 1 - 1) ^ 2 *
aeval (LaurentPolynomial.T 1 + LaurentPolynomial.T (-1) : LaurentPolynomial ℤ)
(chebyshevCPartialSum r)
public noncomputable def chebyshevCPartialSum (n : ℕ) : ℤ[X] :=
1 + ∑ k ∈ Finset.Icc 1 n, Chebyshev.C ℤ k
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:83
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Lemma 6.1 (
jis-2026-26.4.4-lem-26).
Uses 1
TheoremIncreasing-sequence formula for the Kassel–Reutenauer polynomials#●ready to prove
Let \(n \ge 1\) and work in the ring \(\mathbb{Z}[q, q^{-1}]\) of Laurent polynomials. For integers \(a\) and \(h\) let \(IS(a, h) = \{a+1, \dots, a+h\}\). For an odd divisor \(d\) of \(n\) put \(r_n(d) = n/d - (d+1)/2\), \(A_d = IS(r_n(d), d)\) and \(\check A_d = IS(-r_n(d) - 1, 2n/d)\). Then the Kassel–Reutenauer polynomial \(\bar P_n\) satisfies
The left-hand side is the paper's \(P_n(q)/q^{n-1}\).
MetaMathlibExt.kasselReutenauerPoly_laurent_increasingSequences · 15 lines
public theorem_wanted kasselReutenauerPoly_laurent_increasingSequences (n : ℕ) (hn : 1 ≤ n) :
aeval (LaurentPolynomial.T 1 + LaurentPolynomial.T (-1) : LaurentPolynomial ℤ)
(kasselReutenauerPoly n) =
∑ d ∈ (Nat.divisors n).filter (fun d => Odd d ∧ 0 ≤ ((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)),
∑ i ∈ Finset.Icc (-(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)))
(-(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)) - 1 + ((2 * n / d : ℕ) : ℤ)) \
Finset.Icc (((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ) + 1)
(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ) + d),
LaurentPolynomial.T i -
∑ d ∈ (Nat.divisors n).filter (fun d => Odd d ∧ ((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ) < 0),
∑ i ∈ Finset.Icc (((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ) + 1)
(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ) + d) \
Finset.Icc (-(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)))
(-(((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)) - 1 + ((2 * n / d : ℕ) : ℤ)),
LaurentPolynomial.T i
public noncomputable def kasselReutenauerPoly (n : ℕ) : ℤ[X] :=
(kasselReutenauerCoeff n 0 : ℤ[X]) +
∑ i ∈ Finset.Icc 1 (n - 1), (kasselReutenauerCoeff n i : ℤ[X]) * Chebyshev.C ℤ i
WantedExt/Algebra/IntertwinedIntegerSequencesWanted.lean:73
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 6.2 (
jis-2026-26.4.4-prop-27).
Uses 1
TheoremZeta function of the Hilbert scheme of points on the two-dimensional torus#●ready to prove
Let \(p\) be a prime, \(k \ge 1\), \(q = p^k\) and \(n \ge 1\). For \(m \ge 1\) let \(\mathbb{F}_{q^m}\) be the field with \(q^m\) elements and let \(N_m\) be the number of ideals \(I\) of the Laurent polynomial ring \(\mathbb{F}_{q^m}[x^{\pm 1}, y^{\pm 1}]\) (the group algebra of \(\mathbb{Z} \times \mathbb{Z}\)) such that the quotient by \(I\) has dimension \(n\) over \(\mathbb{F}_{q^m}\); this is the number of \(\mathbb{F}_{q^m}\)-points of the Hilbert scheme \(H^n\) of \(n\) points on the torus. For an odd divisor \(d\) of \(n\) put \(r_n(d) = n/d - (d + 1)/2\), \(a_d = n + r_n(d)\) and \(b_d = n - r_n(d)\). Then the zeta function \(Z(t) = \exp\big(\sum_{m \ge 1} N_m t^m / m\big)\), a formal power series with rational coefficients, is
the product running over the odd divisors \(d\) of \(n\).
The exponents \(a_d\), \(b_d\), \(a_d + 1\) and \(b_d - 1\) are nonnegative integers.
MetaMathlibExt.hilbertSchemeTorus_zeta_eq_prod · 15 lines
public theorem_wanted hilbertSchemeTorus_zeta_eq_prod (p k n : ℕ) [Fact p.Prime] (hk : 0 < k)
(hn : 1 ≤ n) :
let q : ℚ := (p : ℚ) ^ k
let N : ℕ → ℕ := fun m =>
Nat.card {I : Ideal (AddMonoidAlgebra (GaloisField p (k * m)) (ℤ × ℤ)) //
Module.finrank (GaloisField p (k * m))
(AddMonoidAlgebra (GaloisField p (k * m)) (ℤ × ℤ) ⧸ I) = n}
let r : ℕ → ℤ := fun d => ((n / d : ℕ) : ℤ) - ((d + 1) / 2 : ℕ)
PowerSeries.subst (PowerSeries.mk fun m : ℕ => if m = 0 then (0 : ℚ) else (N m : ℚ) / m)
(PowerSeries.exp ℚ) =
∏ d ∈ n.divisors.filter Odd,
(1 - PowerSeries.C (q ^ ((n : ℤ) + r d)) * PowerSeries.X) *
(1 - PowerSeries.C (q ^ ((n : ℤ) - r d)) * PowerSeries.X) *
((1 - PowerSeries.C (q ^ ((n : ℤ) + r d + 1)) * PowerSeries.X) *
(1 - PowerSeries.C (q ^ ((n : ℤ) - r d - 1)) * PowerSeries.X))⁻¹
Sources
- C. Kassel and C. Reutenauer, Pairs of Intertwined Integer Sequences, Journal of Integer Sequences 29 (2026), Article 26.4.4, Proposition 5.5 (
jis-2026-26.4.4-prop-25).
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.