A055413 -id:A055413 - cp's OEIS frontend

A302997 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals: A(n,k) = [x^(n^2)] theta_3(x)^k/(1 - x), where theta_3() is the Jacobi theta function.

1, 1, 1, 1, 3, 1, 1, 5, 5, 1, 1, 7, 13, 7, 1, 1, 9, 33, 29, 9, 1, 1, 11, 89, 123, 49, 11, 1, 1, 13, 221, 425, 257, 81, 13, 1, 1, 15, 485, 1343, 1281, 515, 113, 15, 1, 1, 17, 953, 4197, 5913, 3121, 925, 149, 17, 1, 1, 19, 1713, 12435, 23793, 16875, 6577, 1419, 197, 19, 1, 1, 21, 2869, 33809, 88273, 84769, 42205, 11833, 2109, 253, 21, 1

Offset: 0

Ilya Gutkovskiy, Apr 17 2018

A(n,k) is the number of integer lattice points inside the k-dimensional hypersphere of radius n.

			Square array begins:
  1,   1,   1,    1,     1,      1,  ...
  1,   3,   5,    7,     9,     11,  ...
  1,   5,  13,   33,    89,    221,  ...
  1,   7,  29,  123,   425,   1343,  ...
  1,   9,  49,  257,  1281,   5913,  ...
  1,  11,  81,  515,  3121,  16875,  ...

Andrew Howroyd, Table of n, a(n) for n = 0..1274
Eric Weisstein's World of Mathematics, Jacobi Theta Functions
Index entries for sequences related to sums of squares

Columns k=0..10 give A000012, A005408, A000328, A000605, A055410, A055411, A055412, A055413, A055414, A055415, A055416.
Rows k=0..10 give A000012, A005408, A055426, A055427, A055428, A055429, A055430, A055431, A055432, A055433, A055434.
Main diagonal gives A302861.
Cf. A000122, A122510, A302996, A302998.

Table[Function[k, SeriesCoefficient[EllipticTheta[3, 0, x]^k/(1 - x), {x, 0, n^2}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten
Table[Function[k, SeriesCoefficient[1/(1 - x) Sum[x^i^2, {i, -n, n}]^k, {x, 0, n^2}]][j - n], {j, 0, 11}, {n, 0, j}] // Flatten

T(n,k)={if(k==0, 1, polcoef(((1 + 2*sum(j=1, n, x^(j^2)) + O(x*x^(n^2)))^k)/(1-x), n^2))} \\ Andrew Howroyd, Sep 14 2019

A(n,k) = [x^(n^2)] (1/(1 - x))*(Sum_{j=-infinity..infinity} x^(j^2))^k.

A341426 Number of positive solutions to (x_1)^2 + (x_2)^2 + ... + (x_7)^2 <= n^2.

Original entry on oeis.org

1, 71, 491, 2522, 9263, 27723, 71480, 163908, 345657, 679802, 1252185, 2203724, 3715206, 6041979, 9510283, 14591324, 21788606, 31894205, 45741815, 64467383, 89363919, 122254946, 164721244, 219526449, 289133792, 377013829, 486522424, 622759365

Offset: 3

Ilya Gutkovskiy, Feb 11 2021

nonn

Alois P. Heinz, Table of n, a(n) for n = 3..1000
Index entries for sequences related to sums of squares

Cf. A000122, A001182, A055406, A055413, A253663, A302995, A340906, A341396, A341402, A341423, A341424, A341425, A341427, A341428, A341429.

b:= proc(n, k) option remember; `if`(k=0, 1, `if`(n=0, 0,
      add((s->`if`(s>n, 0, b(n-s, k-1)))(j^2), j=1..isqrt(n))))
    end:
a:= n-> b(n^2, 7):
seq(a(n), n=3..30);  # Alois P. Heinz, Feb 11 2021

Table[SeriesCoefficient[(EllipticTheta[3, 0, x] - 1)^7/(128 (1 - x)), {x, 0, n^2}], {n, 3, 30}]

a(n) is the coefficient of x^(n^2) in expansion of (theta_3(x) - 1)^7 / (128 * (1 - x)).

A341396 Number of integer solutions to (x_1)^2 + (x_2)^2 + ... + (x_7)^2 <= n.

Original entry on oeis.org

1, 15, 99, 379, 953, 1793, 3081, 5449, 8893, 12435, 16859, 24419, 33659, 42115, 53203, 69779, 88273, 106081, 125821, 153541, 187981, 217437, 248741, 298469, 351277, 394691, 446939, 515259, 589307, 657683, 728803, 828259, 939223, 1029159, 1124023, 1260103

Offset: 0

Ilya Gutkovskiy, Feb 10 2021

nonn

Partial sums of A008451.

Index entries for sequences related to sums of squares

Cf. A000122, A001650, A008451, A046895, A055406, A055413, A057655, A117609, A122510, A175360, A175361, A302860, A341397, A341398, A341399.

b:= proc(n, k) option remember; `if`(n=0, 1, `if`(n<0 or k<1, 0,
      b(n, k-1)+2*add(b(n-j^2, k-1), j=1..isqrt(n))))
    end:
a:= proc(n) option remember; b(n, 7)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..35);  # Alois P. Heinz, Feb 10 2021

nmax = 35; CoefficientList[Series[EllipticTheta[3, 0, x]^7/(1 - x), {x, 0, nmax}], x]
Table[SquaresR[7, n], {n, 0, 35}] // Accumulate

my(q='q+O('q^(55))); Vec((eta(q^2)^5/(eta(q)^2*eta(q^4)^2))^7/(1-q)) \\ Joerg Arndt, Jun 21 2024

G.f.: theta_3(x)^7 / (1 - x).

a(n^2) = A055413(n).

A341402 Number of nonnegative solutions to (x_1)^2 + (x_2)^2 + ... + (x_7)^2 <= n.

Original entry on oeis.org

1, 8, 29, 64, 106, 169, 281, 422, 548, 702, 961, 1276, 1556, 1864, 2326, 2893, 3390, 3852, 4545, 5455, 6253, 7002, 8080, 9361, 10453, 11496, 12903, 14618, 16194, 17643, 19589, 22011, 24027, 25714, 28143, 31188, 33792, 36137, 39203, 42920, 46294, 49108, 52580, 57165, 61365

Offset: 0

Ilya Gutkovskiy, Feb 10 2021

nonn

Partial sums of A045849.

Index entries for sequences related to sums of squares

Cf. A000122, A000606, A003059, A045849, A055406, A055413, A224212, A224213, A302862, A341400, A341401.

b:= proc(n, k) option remember; `if`(n=0, 1, `if`(n<0 or k<1, 0,
      b(n, k-1)+add(b(n-j^2, k-1), j=1..isqrt(n))))
    end:
a:= proc(n) option remember; b(n, 7)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..44);  # Alois P. Heinz, Feb 10 2021

nmax = 44; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^7/(128 (1 - x)), {x, 0, nmax}], x]

G.f.: (1 + theta_3(x))^7 / (128 * (1 - x)).

a(n^2) = A055406(n).

A302861 a(n) = [x^(n^2)] theta_3(x)^n/(1 - x), where theta_3() is the Jacobi theta function.

Original entry on oeis.org

1, 3, 13, 123, 1281, 16875, 252673, 4031123, 70554353, 1318315075, 26107328109, 549772933959, 12147113355505, 280978137279483, 6780378828922333, 169829490474843659, 4409771551548703649, 118361723203178140163, 3277041835527134201777, 93455465161026267454527

Offset: 0

Ilya Gutkovskiy, Apr 14 2018

nonn

a(n) = number of integer lattice points inside the n-dimensional hypersphere of radius n.

Eric Weisstein's World of Mathematics, Jacobi Theta Functions
Index entries for sequences related to sums of squares

Main diagonal of A302997.

Cf. A000122, A000328, A000605, A055410, A055411, A055412, A055413, A055414, A055415, A055416, A122510, A232173, A302860.

Table[SeriesCoefficient[EllipticTheta[3, 0, x]^n/(1 - x), {x, 0, n^2}], {n, 0, 19}]
Table[SeriesCoefficient[1/(1 - x) Sum[x^k^2, {k, -n, n}]^n, {x, 0, n^2}], {n, 0, 19}]

a(n) = A122510(n,n^2).

cp's OEIS Frontend

A302997 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals: A(n,k) = [x^(n^2)] theta_3(x)^k/(1 - x), where theta_3() is the Jacobi theta function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A341426 Number of positive solutions to (x_1)^2 + (x_2)^2 + ... + (x_7)^2 <= n^2.

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A341396 Number of integer solutions to (x_1)^2 + (x_2)^2 + ... + (x_7)^2 <= n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A341402 Number of nonnegative solutions to (x_1)^2 + (x_2)^2 + ... + (x_7)^2 <= n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A302861 a(n) = [x^(n^2)] theta_3(x)^n/(1 - x), where theta_3() is the Jacobi theta function.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula