A055415 -id:A055415 - 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.

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

Original entry on oeis.org

1, 46, 760, 7751, 43910, 186098, 652710, 1943742, 5178030, 12411211, 27773308, 57798904, 114152429, 214399664, 387571706, 673189698, 1135916808, 1857320784, 2966816950, 4623984661, 7066527283, 10577150039, 15589368584, 22580091614, 32256768126

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, A055408, A055415, A253663, A302995, A340946, A341398, A341404, A341423, A341424, A341425, A341426, A341427, 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, 9):
seq(a(n), n=3..27);  # Alois P. Heinz, Feb 11 2021

Table[SeriesCoefficient[(EllipticTheta[3, 0, x] - 1)^9/(512 (1 - x)), {x, 0, n^2}], {n, 3, 27}]

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

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

Original entry on oeis.org

1, 19, 163, 835, 2869, 7189, 14581, 27253, 49861, 84663, 129303, 190071, 284055, 409335, 550455, 732855, 995241, 1312617, 1656153, 2077497, 2634777, 3300057, 4003641, 4804281, 5872665, 7129227, 8363307, 9784491, 11635755, 13670475, 15727755, 18066315, 20950491

Offset: 0

Ilya Gutkovskiy, Feb 10 2021

nonn

Partial sums of A008452.

Index entries for sequences related to sums of squares

Cf. A000122, A001650, A008452, A046895, A055408, A055415, A057655, A117609, A122510, A175360, A175361, A302860, A341396, A341397, 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, 9)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..32);  # Alois P. Heinz, Feb 10 2021

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

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

a(n^2) = A055415(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).

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

Original entry on oeis.org

1, 10, 46, 130, 265, 463, 799, 1339, 2014, 2780, 3860, 5444, 7301, 9263, 11783, 15263, 19250, 23237, 27893, 34193, 41519, 48701, 56765, 67421, 79484, 91067, 103739, 119855, 138035, 155819, 174923, 198863, 225890, 251444, 277976, 311492, 349122, 384420, 421284

Offset: 0

Ilya Gutkovskiy, Feb 10 2021

nonn

Partial sums of A045851.

Index entries for sequences related to sums of squares

Cf. A000122, A000606, A003059, A045851, A055408, A055415, A224212, A224213, A302862, A341400, A341401, A341402, A341403, A341405.

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, 9)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..38);  # Alois P. Heinz, Feb 10 2021

nmax = 38; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^9/(512 (1 - x)), {x, 0, nmax}], x]

G.f.: (1 + theta_3(x))^9 / (512 * (1 - x)).

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

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

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

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A341398 Number of integer solutions to (x_1)^2 + (x_2)^2 + ... + (x_9)^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

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula