cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-9 of 9 results.

A341423 Number of positive solutions to (x_1)^2 + (x_2)^2 + (x_3)^2 + (x_4)^2 <= n^2.

Original entry on oeis.org

1, 5, 32, 94, 219, 437, 804, 1362, 2177, 3271, 4768, 6708, 9227, 12381, 16254, 20954, 26707, 33461, 41480, 50884, 61703, 74183, 88606, 104862, 123481, 144241, 167604, 193648, 222799, 254731, 290244, 329512, 372545, 419661, 470822, 526646, 587481, 653505
Offset: 2

Views

Author

Ilya Gutkovskiy, Feb 11 2021

Keywords

Links

Crossrefs

Cf. A000122, A001182, A046895, A055403, A055410, A063730, A224213, A253663, A302995, A341424, A341425, A341426, A341427, A341428, A341429.

Programs

  • Maple
    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, 4):
seq(a(n), n=2..39);  # Alois P. Heinz, Feb 11 2021
  • Mathematica
    Table[SeriesCoefficient[(EllipticTheta[3, 0, x] - 1)^4/(16 (1 - x)), {x, 0, n^2}], {n, 2, 39}]

Formula

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

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

Original entry on oeis.org

1, 2, 4, 8, 20, 57, 160, 422, 1076, 2780, 7449, 20462, 56348, 153909, 418268, 1139703, 3126068, 8618611, 23801146, 65708424, 181391905, 501296216, 1387834518, 3848187985, 10680579812, 29660831057, 82415406493, 229156296047, 637659848888, 1775648562970, 4947475298595
Offset: 0

Views

Author

Ilya Gutkovskiy, Apr 14 2018

Keywords

Comments

a(n) = number of nonnegative solutions to (x_1)^2 + (x_2)^2 + ... + (x_n)^2 <= n.

Links

Crossrefs

Cf. A000606, A003059, A010052, A224212, A224213, A287617, A302860, A302863.

Programs

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

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

Original entry on oeis.org

1, 6, 16, 26, 36, 57, 87, 107, 122, 157, 207, 247, 277, 322, 392, 452, 482, 537, 637, 717, 773, 863, 973, 1053, 1113, 1203, 1343, 1473, 1553, 1668, 1858, 1998, 2053, 2173, 2373, 2543, 2673, 2818, 3018, 3218, 3338, 3483, 3753, 3973, 4113, 4344, 4634, 4834, 4944, 5139, 5449
Offset: 0

Views

Author

Ilya Gutkovskiy, Feb 10 2021

Keywords

Comments

Partial sums of A038671.

Links

Crossrefs

Cf. A000122, A000606, A003059, A038671, A055404, A055411, A175360, A224212, A224213, A302862, A341401, A341402.

Programs

  • Maple
    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, 5)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..50);  # Alois P. Heinz, Feb 10 2021
  • Mathematica
    nmax = 50; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^5/(32 (1 - x)), {x, 0, nmax}], x]

Formula

G.f.: (1 + theta_3(x))^5 / (32 * (1 - x)).
a(n^2) = A055404(n).

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

Original entry on oeis.org

1, 7, 22, 42, 63, 99, 160, 220, 265, 337, 457, 577, 672, 792, 978, 1178, 1319, 1469, 1739, 2039, 2255, 2507, 2882, 3242, 3513, 3819, 4269, 4769, 5159, 5555, 6181, 6841, 7246, 7666, 8401, 9181, 9763, 10363, 11188, 12108, 12828, 13434, 14394, 15534, 16359, 17211, 18477, 19677
Offset: 0

Views

Author

Ilya Gutkovskiy, Feb 10 2021

Keywords

Comments

Partial sums of A045848.

Links

Crossrefs

Cf. A000122, A000606, A003059, A045848, A055405, A055412, A175361, A224212, A224213, A302862, A341400, A341402.

Programs

  • Maple
    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, 6)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..47);  # Alois P. Heinz, Feb 10 2021
  • Mathematica
    nmax = 47; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^6/(64 (1 - x)), {x, 0, nmax}], x]

Formula

G.f.: (1 + theta_3(x))^6 / (64 * (1 - x)).
a(n^2) = A055405(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

Views

Author

Ilya Gutkovskiy, Feb 10 2021

Keywords

Comments

Partial sums of A045849.

Links

Crossrefs

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

Programs

  • Maple
    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
  • Mathematica
    nmax = 44; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^7/(128 (1 - x)), {x, 0, nmax}], x]

Formula

G.f.: (1 + theta_3(x))^7 / (128 * (1 - x)).
a(n^2) = A055406(n).

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

Original entry on oeis.org

1, 9, 37, 93, 171, 283, 479, 767, 1076, 1420, 1952, 2688, 3444, 4228, 5320, 6776, 8262, 9662, 11454, 13918, 16480, 18832, 21772, 25644, 29508, 33044, 37300, 42732, 48340, 53556, 59632, 67472, 75405, 82237, 90189, 100661, 111155, 120403, 131099, 144651, 158469, 170621
Offset: 0

Views

Author

Ilya Gutkovskiy, Feb 10 2021

Keywords

Comments

Partial sums of A045850.

Links

Crossrefs

Cf. A000122, A000606, A003059, A045850, A055407, A055414, A224212, A224213, A302862, A341400, A341401, A341402, A341404, A341405.

Programs

  • Maple
    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, 8)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..41);  # Alois P. Heinz, Feb 10 2021
  • Mathematica
    nmax = 41; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^8/(256 (1 - x)), {x, 0, nmax}], x]

Formula

G.f.: (1 + theta_3(x))^8 / (256 * (1 - x)).
a(n^2) = A055407(n).

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

Views

Author

Ilya Gutkovskiy, Feb 10 2021

Keywords

Comments

Partial sums of A045851.

Links

Crossrefs

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

Programs

  • Maple
    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
  • Mathematica
    nmax = 38; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^9/(512 (1 - x)), {x, 0, nmax}], x]

Formula

G.f.: (1 + theta_3(x))^9 / (512 * (1 - x)).
a(n^2) = A055408(n).

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

Original entry on oeis.org

1, 11, 56, 176, 396, 738, 1308, 2268, 3618, 5258, 7449, 10689, 14889, 19609, 25369, 33289, 43154, 53774, 65739, 81339, 100671, 121221, 143421, 171501, 205701, 241283, 278678, 324398, 378998, 435968, 495428, 566468, 650798, 737888, 826083, 930123, 1053323
Offset: 0

Views

Author

Ilya Gutkovskiy, Feb 10 2021

Keywords

Comments

Partial sums of A045852.

Links

Crossrefs

Cf. A000122, A000606, A003059, A045852, A055409, A055416, A224212, A224213, A302862, A341400, A341401, A341402, A341403, A341404.

Programs

  • Maple
    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, 10)+`if`(n>0, a(n-1), 0) end:
seq(a(n), n=0..36);  # Alois P. Heinz, Feb 10 2021
  • Mathematica
    nmax = 36; CoefficientList[Series[(1 + EllipticTheta[3, 0, x])^10/(1024 (1 - x)), {x, 0, nmax}], x]

Formula

G.f.: (1 + theta_3(x))^10 / (1024 * (1 - x)).
a(n^2) = A055409(n).

A372613 Number of solutions to x^2 + y^2 + z^2 + w^2 <= n, where x, y, z, w are positive odd integers.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 5, 5, 5, 5, 5, 5, 5, 5, 11, 11, 11, 11, 11, 11, 11, 11, 19, 19, 19, 19, 19, 19, 19, 19, 32, 32, 32, 32, 32, 32, 32, 32, 44, 44, 44, 44, 44, 44, 44, 44, 58, 58, 58, 58, 58, 58, 58, 58, 82, 82, 82, 82, 82, 82, 82, 82, 100, 100, 100, 100, 100, 100, 100, 100
Offset: 0

Views

Author

Ilya Gutkovskiy, May 07 2024

Keywords

Links

Crossrefs

Cf. A008438, A046895, A224213, A349611, A372511, A372512.

Programs

  • Mathematica
    nmax = 75; CoefficientList[Series[EllipticTheta[2, 0, x^4]^4/(16 (1 - x)), {x, 0, nmax}], x]
Showing 1-9 of 9 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.