A286815 -id:A286815 - cp's OEIS frontend

A288515 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of Product_{j>=1} ((1 + x^j)/(1 - x^j))^k.

1, 1, 0, 1, 2, 0, 1, 4, 4, 0, 1, 6, 12, 8, 0, 1, 8, 24, 32, 14, 0, 1, 10, 40, 80, 76, 24, 0, 1, 12, 60, 160, 234, 168, 40, 0, 1, 14, 84, 280, 552, 624, 352, 64, 0, 1, 16, 112, 448, 1110, 1712, 1552, 704, 100, 0, 1, 18, 144, 672, 2004, 3912, 4896, 3648, 1356, 154, 0, 1, 20, 180, 960, 3346, 7896, 12600, 13120, 8184, 2532, 232, 0

Offset: 0

Ilya Gutkovskiy, Jun 10 2017

			Square array begins:
1,   1,    1,    1,     1,     1,  ...
0,   2,    4,    6,     8,    10,  ...
0,   4,   12,   24,    40,    60,  ...
0,   8,   32,   80,   160,   280,  ...
0,  14,   76,  234,   552,  1110,  ...
0,  24,  168,  624,  1712,  3913,  ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened
Index entries for sequences related to partitions

Columns k=0-24 give: A000007, A015128, A001934, A004404 (alternating values), A284286, A004406-A004425 (alternating values).
Rows n=0-2 give: A000012, A005843, A046092.
Main diagonal gives A270919.
Antidiagonal sums give A299108.
Cf. A122141, A286815.

# JacobiTheta4 is defined in A002448.
A288515Column(k, len) = JacobiTheta4(len, -k)
for k in 0:8 A288515Column(k, 8) |> println end # Peter Luschny, Mar 12 2018

Table[Function[k, SeriesCoefficient[Product[((1 + x^i)/(1 - x^i))^k, {i, 1, n}], {x, 0, n}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten
Table[Function[k, SeriesCoefficient[1/EllipticTheta[4, 0, x]^k, {x, 0, n}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten

G.f. of column k: Product_{j>=1} ((1 + x^j)/(1 - x^j))^k.
G.f. of column k: 1/theta_4(x)^k, where theta_4() is the Jacobi theta function.
For asymptotics of column k see comment from Vaclav Kotesovec in A001934.

A000156 Number of ways of writing n as a sum of 24 squares.

Original entry on oeis.org

1, 48, 1104, 16192, 170064, 1362336, 8662720, 44981376, 195082320, 721175536, 2319457632, 6631997376, 17231109824, 41469483552, 93703589760, 200343312768, 407488018512, 793229226336, 1487286966928, 2697825744960, 4744779429216

Offset: 0

N. J. A. Sloane

The Carlitz paper has the wrong formula on p. 505, eq. (3). The factor in front of tau(n/2) should be -2^16 (not -2^12). The mistake appeared in the previous equation derived from eq. (2) where theta_3^(24) * 256*k^4*k'^4 was replaced by 2^8*g(q^2) which produces the factor 2^8*256 = 2^16. (One should subtract on p. 504 the second equation in the middle from the negative of the first equation. There is also a sign mistake in the sum term of the third equation from the bottom.) - Wolfdieter Lang, Sep 24 2016

Avner Ash and Robert Gross, Summing it up, Princeton University Press, 2016, p. 195, eq. (15.1).
E. Grosswald, Representations of Integers as Sums of Squares. Springer-Verlag, NY, 1985, p. 107.
G. H. Hardy, Ramanujan, 1940, Cambridge, reprinted with additional corrections and comments by AMS Chelsea Publishing, 1999, 2002, Providence, Rhode Island, ch. IX., pp. 153-155.
G. H. Hardy and E. M. Wright, An Introduction to the Theory of Numbers. 3rd ed., Oxford Univ. Press, 1954, p. 314.

T. D. Noe, Table of n, a(n) for n = 0..10000
L. Carlitz, On the representation of an integer as the sum of twenty-four squares, Indagationes Mathematicae (Proceedings), 58 (1955) 504-506.
H. H. Chan and C. Krattenthaler, Recent progress in the study of representations of integers as sums of squares, arXiv:math/0407061 [math.NT], 2004.
Shi-Chao Chen, Congruences for rs(n), Journal of Number Theory, Volume 130, Issue 9, September 2010, Pages 2028-2032.
S. C. Milne, Infinite families of exact sums of squares formulas, Jacobi elliptic functions, continued fractions and Schur functions, Ramanujan J., 6 (2002), 7-149.
Index entries for sequences related to sums of squares

Row d=24 of A122141 and of A319574, 24th column of A286815.

(sum(x^(m^2),m=-10..10))^24; seq(coeff(%,x,n), n=0..30);
# Alternative:
A000156list := proc(len) series(JacobiTheta3(0, x)^24, x, len+1);
seq(coeff(%, x, j), j=0..len-1) end: A000156list(21); # Peter Luschny, Oct 02 2018

Table[SquaresR[24, n], {n, 0, 20}] (* Ray Chandler, Nov 28 2006 *)

first(n)=my(x='x); x+=O(x^(n+1)); Vec((2*sum(k=1,sqrtint(n),x^k^2) + 1)^24) \\ Charles R Greathouse IV, Jul 29 2016

From Wolfdieter Lang, Sep 24 2016: (Start)
For n >= 1: a(n) = (16*sigma^*{11} - 128*(512*tau(n/2) + (-1)^n*259*tau(n)))/691, with sigma^*{11} = sigma_{11}^{e}(n) - sigma_{11}^{o}(n) if n even and sigma_{11}(n) otherwise. Here sigma_{11}(n) = A013959(n) and 0 if n is not an integer, sigma_{11}^{e}(n) and sigma_{11}^{o}(n) are the sums of the 11th power of the odd and even positive divisors of n, respectively. Ramanujan's tau(n) = A000594(n) and 0 if n is not an integer. This is from Hardy, ch. IX., p. 155, eqs. (9.17.1) and (9.17.2), and p.142 for the definition of sigma^*_{nu}(n). See also the Ash and Gross reference.
Another version, see the corrected Carlitz reference:
a(n) = (2^4*(sigma_{11}(n)- 2*sigma_{11}(n/2) + 2^{12}*sigma_{11}(n/4)) - 2^7*259*(-1)^n*tau(n) - 2^16*tau(n/2))/691, n >= 1.
(End)
a(n) = (48/n)*Sum_{k=1..n} A186690(k)*a(n-k), a(0) = 1. - Seiichi Manyama, May 27 2017

Extended by Ray Chandler, Nov 28 2006

A290430 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of (Sum_{j>=0} x^(j(j+1)(2*j+1)/6))^k.

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 0, 0, 1, 3, 1, 0, 0, 1, 4, 3, 0, 0, 0, 1, 5, 6, 1, 0, 1, 0, 1, 6, 10, 4, 0, 2, 0, 0, 1, 7, 15, 10, 1, 3, 2, 0, 0, 1, 8, 21, 20, 5, 4, 6, 0, 0, 0, 1, 9, 28, 35, 15, 6, 12, 3, 0, 0, 0, 1, 10, 36, 56, 35, 12, 20, 12, 0, 0, 0, 0, 1, 11, 45, 84, 70, 28, 31, 30, 4, 0, 1, 0, 0, 1, 12, 55, 120, 126, 64, 49, 60, 20, 0, 3, 0, 0, 0

Offset: 0

Ilya Gutkovskiy, Jul 31 2017

A(n,k) is the number of ways of writing n as a sum of k square pyramidal numbers (A000330).

			Square array begins:
1,  1,  1,  1,  1,   1,  ...
0,  1,  2,  3,  4,   5,  ...
0,  0,  1,  3,  6,  10,  ...
0,  0,  0,  1,  4,  10,  ...
0,  0,  0,  0,  1,   5,  ...
0,  1,  2,  3,  4,   6,  ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened
Eric Weisstein's World of Mathematics, Square Pyramidal Number
Index to sequences related to pyramidal numbers

Cf. A000330, A045847, A122141, A286815, A290429.
Cf. A000007 (column 0), A253903 (column 1), A282173 (column 6).
Main diagonal gives A303172.

Table[Function[k, SeriesCoefficient[Sum[x^(i (i + 1) (2 i + 1)/6), {i, 0, n}]^k, {x, 0, n}]][j - n], {j, 0, 13}, {n, 0, j}] // Flatten

G.f. of column k: (Sum_{j>=0} x^(j*(j+1)*(2*j+1)/6))^k.

A302856 Number of ways of writing n as a sum of 32 squares.

Original entry on oeis.org

1, 64, 1984, 39680, 575424, 6448000, 58115328, 433131008, 2724906944, 14709082432, 69079796864, 285848172800, 1054968628480, 3515371815296, 10706472186368, 30156949879296, 79395777333184, 197101549419648, 464573878394560, 1045365667116800, 2256126097001600, 4689805691447296

Offset: 0

Seiichi Manyama, Apr 14 2018

nonn

Seiichi Manyama, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Sum of Squares Function
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
Index entries for sequences related to sums of squares

32nd column of A286815.

Cf. A302857.

G.f.: (1 + 2 * Sum_{k>=1} q^(k^2))^32.

A297331 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of (theta_3(q^(1/2))^k + theta_4(q^(1/2))^k)/2.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 1, 4, 2, 0, 1, 12, 4, 0, 0, 1, 24, 6, 0, 0, 0, 1, 40, 24, 24, 4, 0, 0, 1, 60, 90, 96, 12, 8, 0, 0, 1, 84, 252, 240, 24, 24, 0, 0, 0, 1, 112, 574, 544, 200, 144, 8, 0, 2, 0, 1, 144, 1136, 1288, 1020, 560, 96, 48, 4, 0, 0, 1, 180, 2034, 3136, 3444, 1560, 400, 192, 6, 4, 0, 0

Offset: 0

Ilya Gutkovskiy, Dec 28 2017

			Square array begins:
1,  1,  1,   1,    1,    1,  ...
0,  0,  4,  12,   24,   40,  ...
0,  2,  4,   6,   24,   90,  ...
0,  0,  0,  24,   96,  240,  ...
0,  0,  4,  12,   24,  200,  ...
0,  0,  8,  24,  144,  560,  ...

J. H. Conway and N. J. A. Sloane, Sphere Packings, Lattices and Groups, Springer-Verlag, p. 118.

Columns k=0..32 give A000007, A089798 (absolute values), A004018, A004015, A004011, A005930, A008428, A008429, A008430, A008431, A008432, A022042, A022043, A022044, A022045, A022046, A022047, A022048, A022049, A022050, A022051, A022052, A022053, A022054, A022055, A022056, A022057, A022058, A022059, A022060, A022061, A022062, A022063.
Main diagonal gives A303333.
Cf. A122141, A286815.

Table[Function[k, SeriesCoefficient[(EllipticTheta[3, 0, q^(1/2)]^k + EllipticTheta[4, 0, q^(1/2)]^k)/2, {q, 0, n}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten

G.f. of column k: (theta_3(q^(1/2))^k + theta_4(q^(1/2))^k)/2, where theta_() is the Jacobi theta function.

cp's OEIS Frontend

A288515 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of Product_{j>=1} ((1 + x^j)/(1 - x^j))^k.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Julia

Mathematica

Formula

A000156 Number of ways of writing n as a sum of 24 squares.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A290430 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of (Sum_{j>=0} x^(j*(j+1)*(2*j+1)/6))^k.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A302856 Number of ways of writing n as a sum of 32 squares.

Views

Author

Keywords

Links

Crossrefs

Formula

A297331 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of (theta_3(q^(1/2))^k + theta_4(q^(1/2))^k)/2.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A290430 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is the expansion of (Sum_{j>=0} x^(j(j+1)(2*j+1)/6))^k.