Cotangent power sums
DefinitionGirstmair's cotangent power coefficients#✓fully proved
For natural numbers \(r\) and \(j\), the rational number \(c_{r,j}\) is
where \(S(k, j)\) is the unsigned Stirling number of the first kind, the number of permutations of \(k\) elements with exactly \(j\) cycles. Subtraction of natural numbers is truncated at \(0\): for \(r = 0\) the exponent \(r - 1\) is read as \(0\), and for \(j = 0\) the factor \((k-1)!\) of the term \(k = 0\) is read as \(0! = 1\).
These coefficients express \((i \cot)^r\) in terms of the derivatives \(i^j \cot^{(j-1)}\).
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, Equation (8). The equation is not in the journal record; it is read from the arXiv version, arXiv:2504.08330, Section 3, where it also follows from the displayed derivation.
Used by 7
TheoremGirstmair's coefficient at index (1, 1)#✓fully proved
Girstmair's cotangent power coefficient \(c_{1,1}\) equals \(1\), matching the identity \(i \cot = i \cot\).
theorem cotangentPowerCoeff_one_one : cotangentPowerCoeff 1 1 = 1
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, characteristic value of Equation (8).
Uses 1
TheoremGirstmair's coefficient at index (2, 2)#✓fully proved
Girstmair's cotangent power coefficient \(c_{2,2}\) equals \(-1\), matching the identity \((i \cot)^2 = 1 - i^2 \cot'\) with \(\cot' = -1 - \cot^2\).
theorem cotangentPowerCoeff_two_two : cotangentPowerCoeff 2 2 = -1
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, characteristic value of Equation (8).
Uses 1
TheoremCotangent powers through cotangent derivatives#●ready to prove
Let \(c_{r,j}\) be Girstmair's cotangent power coefficients and \(\cot^{(m)}\) the \(m\)-th derivative of the real cotangent function. For every natural number \(r \ge 1\) and every real number \(x\) with \(\sin x \ne 0\),
public theorem_wanted I_mul_cot_pow_eq_sum_iteratedDeriv_cot (r : ℕ) (hr : 1 ≤ r) (x : ℝ)
(hx : Real.sin x ≠ 0) :
(Complex.I * Real.cot x) ^ r = ((-1) ^ r + 1) / 2 +
∑ j ∈ Finset.Icc 1 r, (cotangentPowerCoeff r j : ℂ) * Complex.I ^ j *
((iteratedDeriv (j - 1) Real.cot x : ℝ) : ℂ)
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, Proposition 1.
Uses 1
TheoremParity of Girstmair's cotangent power coefficients#●ready to prove
For natural numbers \(j\) and \(r\) with \(1 \le j \le r\) and \(r \not\equiv j \pmod 2\), Girstmair's cotangent power coefficient \(c_{r,j}\) is \(0\).
The source deduces this from the \(\mathbb{Q}\)-linear independence of the functions \(i^j \cot^{(j-1)}\).
public theorem_wanted cotangentPowerCoeff_eq_zero_of_mod_two_ne {r j : ℕ} (hj : 1 ≤ j)
(hjr : j ≤ r) (hpar : r % 2 ≠ j % 2) : cotangentPowerCoeff r j = 0
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, Proposition 1, the sentence that follows it.
Uses 1
TheoremGirstmair's cotangent power sums, odd case#●ready to prove
Let \(n \ge 2\), let \(r\) be odd, and let \(\chi\) be a complex Dirichlet character modulo \(n\) with \(\chi(-1) = -1\). Let \(f\) be the conductor of \(\chi\), \(\chi_f\) the primitive character modulo \(f\) attached to \(\chi\), and \(c_{r,j}\) Girstmair's cotangent power coefficients. Write \(\tau(\overline{\chi_f}) = \sum_{k=1}^{f} \overline{\chi_f(k)} e^{2 \pi i k/f}\) for the Gauss sum and \(B_{j,\chi_f} = f^{j-1} \sum_{k=1}^{f} B_j(k/f) \chi_f(k)\), where \(B_j\) is the \(j\)-th Bernoulli polynomial. Then
where \(k\) runs over \(1 \le k \le n\) with \(\gcd(k, n) = 1\), \(j\) runs over the odd numbers with \(1 \le j \le r\), and \(p\) runs over the primes dividing \(n\).
The left side is \(\tau(\overline{\chi_f})\) times the character coordinate \(y(\chi \mid i^r \cot^r(\pi/n))\) of the source, defined by Equation (3), since \(\sigma_k(i^r \cot^r(\pi/n)) = i^r \cot^r(\pi k/n)\) (Equation (4)).
public theorem_wanted sum_conj_dirichletCharacter_mul_I_mul_cot_pow_of_odd {n : ℕ} (hn : 2 ≤ n)
{r : ℕ} (hr : Odd r) (χ : DirichletCharacter ℂ n) (hχ : χ (-1) = -1) :
∑ k ∈ (Finset.Icc 1 n).filter (fun k => Nat.Coprime k n),
starRingEnd ℂ (χ k) * (Complex.I * Real.cot (Real.pi * k / n)) ^ r =
(∑ k ∈ Finset.Icc 1 χ.conductor, starRingEnd ℂ (χ.primitiveCharacter k) *
Complex.exp (2 * Real.pi * Complex.I * k / χ.conductor)) *
-∑ j ∈ (Finset.Icc 1 r).filter Odd,
(cotangentPowerCoeff r j : ℂ) * (2 * n : ℂ) ^ j / (j * (χ.conductor : ℂ) ^ j) *
(∏ p ∈ n.primeFactors,
(1 - starRingEnd ℂ (χ.primitiveCharacter p) / (p : ℂ) ^ j)) *
((χ.conductor : ℂ) ^ (j - 1) * ∑ k ∈ Finset.Icc 1 χ.conductor,
(((Polynomial.bernoulli j).eval ((k : ℚ) / χ.conductor) : ℚ) : ℂ) *
χ.primitiveCharacter k)
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, Theorem 1, first case.
Uses 1
TheoremGirstmair's cotangent power sums, even case#●ready to prove
Let \(n \ge 2\), let \(r \ge 2\) be even, and let \(\chi\) be a complex Dirichlet character modulo \(n\) with \(\chi(-1) = 1\). Let \(f\) be the conductor of \(\chi\), \(\chi_f\) the primitive character modulo \(f\) attached to \(\chi\), and \(c_{r,j}\) Girstmair's cotangent power coefficients. Write \(\tau(\overline{\chi_f}) = \sum_{k=1}^{f} \overline{\chi_f(k)} e^{2 \pi i k/f}\) for the Gauss sum, \(B_{j,\chi_f} = f^{j-1} \sum_{k=1}^{f} B_j(k/f) \chi_f(k)\), where \(B_j\) is the \(j\)-th Bernoulli polynomial, and \(\varepsilon_\chi = \varphi(n)\) if \(\chi\) is the principal character modulo \(n\) and \(\varepsilon_\chi = 0\) otherwise. Then
where \(k\) runs over \(1 \le k \le n\) with \(\gcd(k, n) = 1\), \(j\) runs over the even numbers with \(1 \le j \le r\), and \(p\) runs over the primes dividing \(n\).
The left side is \(\tau(\overline{\chi_f})\) times the character coordinate \(y(\chi \mid i^r \cot^r(\pi/n))\) of the source (Equation (3)), and \(\varepsilon_\chi\) is \(y(\chi \mid 1)\) (Equation (11)).
public theorem_wanted sum_conj_dirichletCharacter_mul_I_mul_cot_pow_of_even {n : ℕ} (hn : 2 ≤ n)
{r : ℕ} (hr0 : r ≠ 0) (hr : Even r) (χ : DirichletCharacter ℂ n) (hχ : χ (-1) = 1) :
∑ k ∈ (Finset.Icc 1 n).filter (fun k => Nat.Coprime k n),
starRingEnd ℂ (χ k) * (Complex.I * Real.cot (Real.pi * k / n)) ^ r =
(∑ k ∈ Finset.Icc 1 χ.conductor, starRingEnd ℂ (χ.primitiveCharacter k) *
Complex.exp (2 * Real.pi * Complex.I * k / χ.conductor)) *
((if χ = 1 then (n.totient : ℂ) else 0) +
∑ j ∈ (Finset.Icc 1 r).filter Even,
(cotangentPowerCoeff r j : ℂ) * (2 * n : ℂ) ^ j / (j * (χ.conductor : ℂ) ^ j) *
(∏ p ∈ n.primeFactors,
(1 - starRingEnd ℂ (χ.primitiveCharacter p) / (p : ℂ) ^ j)) *
((χ.conductor : ℂ) ^ (j - 1) * ∑ k ∈ Finset.Icc 1 χ.conductor,
(((Polynomial.bernoulli j).eval ((k : ℚ) / χ.conductor) : ℚ) : ℂ) *
χ.primitiveCharacter k))
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, Theorem 1, second case.
Uses 1
TheoremCotangent power coefficients through even Bernoulli numbers#●ready to prove
Let \(c_{r,j}\) be Girstmair's cotangent power coefficients and \(B_m\) the \(m\)-th Bernoulli number. For natural numbers \(j\) and \(r\) with \(1 \le j \le r\) and \(j \equiv r \pmod 2\),
where
and the sum runs over all \(r\)-tuples \((j_1, \dots, j_r)\) of natural numbers with \(j + 2 j_1 + \dots + 2 j_r = r\). This is Theorem 2 of the source, relating \(c_{r,j}\) to the coefficients \(d_{r,j}\) of the earlier literature (Equations (13) and (15)).
public theorem_wanted cotangentPowerCoeff_eq_bernoulli_tuple_sum {r j : ℕ} (hj : 1 ≤ j)
(hjr : j ≤ r) (hpar : j % 2 = r % 2) :
cotangentPowerCoeff r j =
(-1) ^ (r + 1) * 2 ^ (r - j) / ((j - 1).factorial : ℚ) *
∑ a ∈ Finset.Nat.antidiagonalTuple r ((r - j) / 2),
∏ t, bernoulli (2 * a t) / ((2 * a t).factorial : ℚ)
def cotangentPowerCoeff (r j : ℕ) : ℚ :=
(-1) ^ (r - 1) * ∑ k ∈ Finset.Icc j r,
(-2) ^ (k - j) / ((k - 1).factorial : ℚ) * (r.choose k : ℚ) * (Nat.stirlingFirst k j : ℚ)
WantedExt/NumberTheory/CotangentPowerSumsWanted.lean:30
Sources
- Kurt Girstmair, Cotangent Power Sums and Character Coordinates, INTEGERS 25 (2025), Article A63, Theorem 2 with Equations (13) and (15).
Uses 1
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.