A014809 Expansion of Jacobi theta constant (theta_2/2)^24.
1, 24, 276, 2048, 11178, 48576, 177400, 565248, 1612875, 4200352, 10131156, 22892544, 48897678, 99448320, 193740408, 363315200, 658523925, 1157743824, 1980143600, 3303168000, 5386270686, 8602175744, 13477895856, 20748607488, 31425764410, 46883528256, 68969957700
Offset: 0
Keywords
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..10000
- James G. Huard and Kenneth S. Williams, Sums of sixteen and twenty-four triangular numbers, Rocky Mountain J. Math. Volume 35, Number 3 (2005), 857-868.
- Ken Ono, Sinai Robins and Patrick T. Wahl, On the representation of integers as sums of triangular numbers, Aequationes mathematicae, August 1995, Volume 50, Issue 1-2, pp 73-94. Case k=24, Theorem 8; alternative link.
Crossrefs
Programs
-
Mathematica
a[n_] := Module[{e = IntegerExponent[n+3, 2]}, (2^(11*e) * DivisorSigma[11, (n+3)/2^e] - RamanujanTau[n+3] - 2072 * If[OddQ[n], RamanujanTau[(n+3)/2], 0]) / 176896]; Array[a, 27, 0] (* Amiram Eldar, Jan 11 2025 *)
Formula
From Wolfdieter Lang, Jan 13 2017: (Start)
G.f.: 24th power of the g.f. for A010054.
a(n) = (A096963(n+3) - tau(n+3) - 2072*tau((n+3)/2))/176896, with Ramanujan's tau function given in A000594, and tau(n) is put to 0 if n is not integer. See the Ono et al. link, case k=24, Theorem 8. (End)
a(n) = 1/72 * Sum_{a, b, x, y > 0, a*x + b*y = n + 3, x == y == 1 mod 2 and a > b} (a*b)^3*(a^2 - b^2)^2. - Seiichi Manyama, May 05 2017
a(0) = 1, a(n) = (24/n)*Sum_{k=1..n} A002129(k)*a(n-k) for n > 0. - Seiichi Manyama, May 06 2017
G.f.: exp(Sum_{k>=1} 24*(x^k/k)/(1 + x^k)). - Ilya Gutkovskiy, Jul 31 2017
Extensions
More terms from Seiichi Manyama, May 05 2017
Comments