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.

Previous Showing 11-20 of 53 results. Next

A226252 Number of ways of writing n as the sum of 7 triangular numbers.

Original entry on oeis.org

1, 7, 21, 42, 77, 126, 175, 253, 357, 434, 567, 735, 833, 1057, 1302, 1400, 1708, 2037, 2191, 2597, 3003, 3151, 3619, 4242, 4389, 4935, 5691, 5740, 6594, 7434, 7371, 8400, 9303, 9506, 10626, 11592, 11585, 12761, 14427, 14203, 15519, 17241, 16808, 18788, 20559, 19950, 21882, 23898, 23786
Offset: 0

Views

Author

N. J. A. Sloane, Jun 01 2013

Keywords

Crossrefs

Number of ways of writing n as a sum of k triangular numbers, for k=1,...: A010054, A008441, A008443, A008438, A008439, A008440, A226252, A007331, A226253, A226254, A226255, A014787, A014809.

Formula

G.f. is 7th power of g.f. for A010054.
a(0) = 1, a(n) = (7/n)*Sum_{k=1..n} A002129(k)*a(n-k) for n > 0. - Seiichi Manyama, May 06 2017
G.f.: exp(Sum_{k>=1} 7*(x^k/k)/(1 + x^k)). - Ilya Gutkovskiy, Jul 31 2017

A053604 Number of ways to write n as an ordered sum of 3 nonzero triangular numbers.

Original entry on oeis.org

0, 0, 0, 1, 0, 3, 0, 3, 3, 1, 6, 0, 6, 3, 6, 3, 3, 9, 1, 12, 0, 6, 9, 6, 6, 6, 9, 6, 12, 0, 10, 9, 12, 6, 9, 9, 3, 18, 3, 12, 12, 9, 9, 9, 12, 10, 12, 9, 9, 18, 6, 6, 27, 6, 12, 6, 9, 18, 15, 15, 6, 21, 9, 13, 12, 9, 18, 21, 9, 6, 21, 15, 15, 15, 12, 15, 18, 15, 9
Offset: 0

Views

Author

N. J. A. Sloane, Jan 20 2000

Keywords

Comments

Fermat asserted that every number is the sum of three triangular numbers. This was proved by Gauss, who recorded in his Tagebuch entry for Jul 10 1796 that: EYPHEKA! num = DELTA + DELTA + DELTA.

References

  • Mel Nathanson, Additive Number Theory: The Classical Bases, Graduate Texts in Mathematics, Volume 165, Springer-Verlag, 1996. See Chapter 1.

Crossrefs

Programs

  • Mathematica
    nmax = 100; m0 = 10; A053604 :=
    Table[a[n], {n, 0, nmax}]; Clear[counts];
    counts[m_] :=
    counts[m] = (Clear[a]; a[_] = 0;
       Do[s = i*(i + 1)/2 + j*(j + 1)/2 + k*(k + 1)/2;
        a[s] = a[s] + 1, {i, 1, m}, {j, 1, m}, {k, 1, m}];
       A053603); counts[m = m0]; counts[m = 2*m]; While[
    counts[m] != counts[m/2], m = 2*m]; A053604  (* G. C. Greubel, Dec 24 2016 *)

Formula

G.f.: ( Sum_{k>=1} x^(k*(k+1)/2) )^3. - Ilya Gutkovskiy, Dec 24 2016

A226253 Number of ways of writing n as the sum of 9 triangular numbers.

Original entry on oeis.org

1, 9, 36, 93, 198, 378, 633, 990, 1521, 2173, 2979, 4113, 5370, 6858, 8955, 11055, 13446, 16830, 20031, 23724, 28836, 33381, 38520, 45729, 52203, 59121, 68922, 77461, 86283, 99747, 110547, 121500, 138870, 152034, 166725, 188568, 204156, 221760, 248310, 268713, 289422, 321786, 345570, 369036
Offset: 0

Views

Author

N. J. A. Sloane, Jun 01 2013

Keywords

Crossrefs

Number of ways of writing n as a sum of k triangular numbers, for k=1,...: A010054, A008441, A008443, A008438, A008439, A008440, A226252, A007331, A226253, A226254, A226255, A014787, A014809.

Formula

G.f. is 9th power of g.f. for A010054.
a(0) = 1, a(n) = (9/n)*Sum_{k=1..n} A002129(k)*a(n-k) for n > 0. - Seiichi Manyama, May 06 2017
G.f.: exp(Sum_{k>=1} 9*(x^k/k)/(1 + x^k)). - Ilya Gutkovskiy, Jul 31 2017

A226254 Number of ways of writing n as the sum of 10 triangular numbers from A000217.

Original entry on oeis.org

1, 10, 45, 130, 300, 612, 1105, 1830, 2925, 4420, 6341, 9000, 12325, 16290, 21645, 27932, 34980, 44370, 54900, 66430, 81702, 98050, 115440, 138330, 162565, 187800, 220545, 254800, 289265, 334890, 382058, 427350, 488700, 550420, 609960, 691812, 770185, 845750, 949365, 1049400, 1145580, 1274580
Offset: 0

Views

Author

N. J. A. Sloane, Jun 01 2013

Keywords

Crossrefs

Number of ways of writing n as a sum of k triangular numbers, for k=1,...: A010054, A008441, A008443, A008438, A008439, A008440, A226252, A007331, A226253, A226254, A226255, A014787, A014809.

Formula

G.f. is 10th power of g.f. for A010054.
a(n) = (A050456(4*n+5) - A030212(4*n+5))/640. See the Ono et al. link, case k=10, Theorem 6. - Wolfdieter Lang, Jan 13 2017
a(0) = 1, a(n) = (10/n)*Sum_{k=1..n} A002129(k)*a(n-k) for n > 0. - Seiichi Manyama, May 06 2017
G.f.: exp(Sum_{k>=1} 10*(x^k/k)/(1 + x^k)). - Ilya Gutkovskiy, Jul 31 2017

A014787 Expansion of Jacobi theta constant (theta_2/2)^12.

Original entry on oeis.org

1, 12, 66, 232, 627, 1452, 2982, 5544, 9669, 16016, 25158, 38160, 56266, 80124, 111816, 153528, 205260, 270876, 353870, 452496, 574299, 724044, 895884, 1103520, 1353330, 1633500, 1966482, 2360072, 2792703, 3299340, 3892922, 4533936, 5273841, 6134448
Offset: 0

Views

Author

Keywords

Comments

Number of ways of writing n as the sum of 12 triangular numbers from A000217.

Examples

			a(2) = (A001160(7) - A000735(3))/256 = (16808 - (-88))/256 = 66. - _Wolfdieter Lang_, Jan 13 2017
		

Crossrefs

Column k=12 of A286180.
Number of ways of writing n as a sum of k triangular numbers, for k=1,...: A010054, A008441, A008443, A008438, A008439, A008440, A226252, A007331, A226253, A226254, A226255, A014787, A014809.

Formula

From Wolfdieter Lang, Jan 13 2017: (Start)
G.f.: 12th power of g.f. for A010054.
a(n) = (A001160(2*n+3) - A000735(n+1))/256. See the Ono et al. link, case k=12, Theorem 7. (End)
a(0) = 1, a(n) = (12/n)*Sum_{k=1..n} A002129(k)*a(n-k) for n > 0. - Seiichi Manyama, May 06 2017
G.f.: exp(Sum_{k>=1} 12*(x^k/k)/(1 + x^k)). - Ilya Gutkovskiy, Jul 31 2017

Extensions

More terms from Seiichi Manyama, May 05 2017

A014809 Expansion of Jacobi theta constant (theta_2/2)^24.

Original entry on oeis.org

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

Views

Author

Keywords

Comments

Number of ways of writing n as the sum of 24 triangular numbers from A000217.

Crossrefs

Column k=24 of A286180.
Number of ways of writing n as a sum of k triangular numbers, for k=1,...: A010054, A008441, A008443, A008438, A008439, A008440, A226252, A007331, A226253, A226254, A226255, A014787, A014809.

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

A045831 Number of 4-core partitions of n.

Original entry on oeis.org

1, 1, 2, 3, 1, 3, 3, 3, 4, 4, 2, 2, 7, 3, 5, 6, 2, 4, 7, 3, 4, 7, 5, 8, 5, 4, 4, 8, 5, 6, 7, 2, 9, 11, 3, 8, 9, 4, 6, 5, 7, 5, 14, 7, 4, 10, 5, 10, 11, 3, 9, 10, 5, 8, 10, 4, 6, 15, 8, 9, 10, 6, 8, 15, 6, 10, 6, 5, 15, 9, 6, 8, 14, 8, 6, 13, 5, 16, 18, 7, 8, 7, 9, 6, 15, 6, 12, 17, 5, 8, 15, 7, 12
Offset: 0

Views

Author

Keywords

Comments

Ramanujan theta functions: f(q) (see A121373), phi(q) (A000122), psi(q) (A010054), chi(q) (A000700).
Conjecturally Sum_n a(n)q^(8n+5) equals theta series of sodalite. - Fred Lunnon, Mar 05 2015
Dickson writes that Liouville proved several related theorems about sums of triangular numbers. - Michael Somos, Feb 10 2020

Examples

			G.f. = 1 + x + 2*x^2 + 3*x^3 + x^4 + 3*x^5 + 3*x^6 + 3*x^7 + 4*x^8 + 4*x^9 + ...
G.f. = q^5 + q^13 + 2*q^21 + 3*q^29 + q^37 + 3*q^45 + 3*q^53 + 3*q^61 + 4*q^69 + ... ,
apparently the theta series of the sodalite net, aka edge-skeleton of space honeycomb by truncated octahedra. - _Fred Lunnon_, Mar 05 2015
		

References

  • L. E. Dickson, History of the Theory of Numbers. Carnegie Institute Public. 256, Washington, DC, Vol. 1, 1919; Vol. 2, 1920; Vol. 3, 1923, see vol. II, p. 23.

Crossrefs

A004024/4, column t=4 of A175595.
Cf. A286953.

Programs

  • Mathematica
    QP = QPochhammer; s = QP[q^4]^4/QP[q] + O[q]^100; CoefficientList[s, q] (* Jean-François Alcover, Jul 26 2011, updated Nov 29 2015 *)
  • PARI
    {a(n) = my(A); if( n<0, 0, A = x * O(x^n); polcoeff( eta(x^4 + A)^4 / eta(x + A), n))}; /* Michael Somos, Mar 24 2003 */

Formula

eta(32*z)^4/eta(8*z) = Sum_{x, y, z} q^(x^2+2*y^2+2*z^2), x, y, z >= 1 and odd.
From Michael Somos, Mar 24 2003: (Start)
Euler transform of period 4 sequence [1, 1, 1, -3, ...].
Expansion of q^(-5/8) * eta(q^4)^4/eta(q) in powers of q.
(End)
Number of solutions to n=t1+2*t2+2*t3 where t1, t2, t3 are triangular numbers. - Michael Somos, Jan 02 2006
G.f.: Product_{k>0} (1-q^(4*k))^4/(1-q^k).
Expansion of psi(q) * psi(q^2)^2 in powers of q where psi() is a Ramanujan theta function. - Michael Somos, Sep 02 2008

Extensions

More terms from James Sellers, Feb 11 2000

A226255 Number of ways of writing n as the sum of 11 triangular numbers.

Original entry on oeis.org

1, 11, 55, 176, 440, 957, 1848, 3245, 5412, 8580, 12892, 18888, 26895, 36916, 50160, 66935, 86658, 111870, 142582, 177320, 221100, 272690, 329065, 399102, 480040, 566808, 672969, 793760, 920326, 1074040, 1248412, 1425974, 1640595, 1882145, 2123385, 2418339, 2743928, 3062895, 3453978, 3880855
Offset: 0

Views

Author

N. J. A. Sloane, Jun 01 2013

Keywords

Crossrefs

Number of ways of writing n as a sum of k triangular numbers, for k=1,...: A010054, A008441, A008443, A008438, A008439, A008440, A226252, A007331, A226253, A226254, A226255, A014787, A014809.

Formula

G.f. is 11th power of g.f. for A010054.
a(0) = 1, a(n) = (11/n)*Sum_{k=1..n} A002129(k)*a(n-k) for n > 0. - Seiichi Manyama, May 06 2017
G.f.: exp(Sum_{k>=1} 11*(x^k/k)/(1 + x^k)). - Ilya Gutkovskiy, Jul 31 2017

A160324 Number of ways to express n as the sum of a square, a pentagonal number and a hexagonal number.

Original entry on oeis.org

1, 3, 3, 1, 1, 3, 4, 3, 1, 2, 4, 3, 2, 2, 2, 4, 5, 4, 2, 2, 3, 3, 5, 3, 3, 2, 3, 5, 4, 5, 2, 5, 5, 2, 2, 1, 6, 8, 5, 2, 3, 5, 4, 3, 4, 5, 3, 3, 2, 5, 7, 7, 5, 4, 7, 4, 4, 3, 4, 4, 3, 6, 3, 2, 5, 5, 9, 7, 3, 3, 6, 9, 5, 3, 1, 8, 7, 6, 2, 5, 6, 3, 10, 4, 3, 3, 8, 7, 5, 4, 1, 4, 10, 7, 5, 4, 8, 6, 2, 8, 6, 10, 7, 5
Offset: 0

Views

Author

Zhi-Wei Sun, May 08 2009

Keywords

Comments

In April 2009, Zhi-Wei Sun conjectured that a(n)>0 for every n=0,1,2,3,.... Note that pentagonal numbers and hexagonal numbers are more sparse than squares and that there are infinitely many positive integers which cannot be written as the sum of three squares.
On Aug 12 2009, Zhi-Wei Sun made the following general conjecture on diagonal representations by polygonal numbers: For each integer m>2, any natural number n can be written in the form p_{m+1}(x_1)+...+p_{2m}(x_m) with x_1,...,x_m nonnegative integers, where p_k(x)=(k-2)x(x-1)/2+x (x=0,1,2,...) are k-gonal numbers. Sun has verified this with m=3 for n up to 10^6, and with m=4,5,6,7,8,9,10 for n up to 5*10^5. - Zhi-Wei Sun, Aug 15 2009
On Aug 21 2009, Zhi-Wei Sun formulated the following strong version for his conjecture on diagonal representations by polygonal numbers: For any integer m>2, each natural number n can be expressed as p_{m+1}(x_1)+p_{m+2}(x_2)+p_{m+3}(x_3)+r with x_1,x_2,x_3 nonnegative integers and r an integer among 0,...,m-3. For m=3 and m=4,5,6,7,8,9,10, Sun has verified this conjecture for n up to 10^6 and 5*10^5 respectively. Sun also guessed that for each m=3,4,... all sufficiently large integers have the form p_{m+1}(x_1)+p_{m+2}(x_2)+p_{m+3}(x_3) with x_1,x_2,x_3 nonnegative integers. For example, it seems that 387904 is the largest integer not in the form p_{20}(x_1)+p_{21}(x_2)+p_{22}(x_3). - Zhi-Wei Sun, Aug 21 2009
On Sep 04 2009, Zhi-Wei Sun conjectured that the sequence contains every positive integer. For n=1,2,3,... let s(n) denote the least nonnegative integer m such that a(m)=n. Here is the list of s(1),...,s(30): 0, 9, 1, 6, 16, 36, 50, 37, 66, 82, 167, 121, 162, 236, 226, 276, 302, 446, 478, 532, 457, 586, 677, 521, 666, 852, 976, 877, 1006, 1046. - Zhi-Wei Sun, Sep 04 2009
Let r be the rank (a noninteger r-polygonal number) which is the average of the number of squares, the number of pentagonal numbers and the number of hexagonal numbers less than x for sufficiently large values of x. r ~= 4.826378432581159594... a(n) ~= sqrt(n/r). - Robert G. Wilson v, Sep 03 2025

Examples

			For n=10 the a(10)=4 solutions are 4+0+6, 4+5+1, 9+0+1, 9+1+0.
		

Crossrefs

Programs

Formula

a(n) = |{: x,y,z=0,1,2,... & x^2+(3y^2-y)/2+(2z^2-z)=n}|.

A230121 Number of ways to write n = x + y + z (0 < x <= y <= z) such that x*(x+1)/2 + y*(y+1)/2 + z*(z+1)/2 is a triangular number.

Original entry on oeis.org

0, 0, 1, 0, 0, 1, 0, 1, 2, 1, 1, 0, 2, 1, 2, 1, 2, 3, 2, 2, 6, 1, 3, 5, 1, 2, 3, 5, 2, 1, 3, 3, 3, 4, 3, 8, 2, 5, 11, 2, 5, 8, 4, 6, 4, 9, 4, 6, 5, 4, 6, 3, 8, 8, 5, 8, 10, 7, 7, 11, 8, 6, 7, 8, 5, 9, 7, 6, 8, 7, 7, 8, 13, 9, 11, 10, 7, 22, 9, 10, 13, 3, 6, 10, 8, 17, 12, 7, 9, 10, 16, 6, 18, 18, 10, 15, 9, 12, 20, 5
Offset: 1

Views

Author

Zhi-Wei Sun, Oct 10 2013

Keywords

Comments

Conjecture: (i) a(n) > 0 except for n = 1, 2, 4, 5, 7, 12. Moreover, for each n = 20, 21, ... there are three distinct positive integers x, y and z with x + y + z = n such that x*(x+1)/2 + y*(y+1)/2 + z*(z+1)/2 is a triangular number.
(ii) A positive integer n cannot be written as x + y + z (x, y, z > 0) with x^2 + y^2 + z^2 a square if and only if n has the form 2^r*3^s or the form 2^r*7, where r and s are nonnegative integers.
(iii) Any integer n > 14 can be written as a + b + c + d, where a, b, c, d are positive integers with a^2 + b^2 + c^2 + d^2 a square. If n > 20 is not among 22, 28, 30, 38, 44, 60, then we may require additionally that a, b, c, d are pairwise distinct.
(iv) For each integer n > 50 not equal to 71, there are positive integers a, b, c, d with a + b + c + d = n such that both a^2 + b^2 and c^2 + d^2 are squares.
Part (ii) and the first assertion in part (iii) were confirmed by Chao Huang and Zhi-Wei Sun in 2021. - Zhi-Wei Sun, May 09 2021

Examples

			a(16) = 1 since 16 = 3 + 6 + 7 and 3*4/2 + 6*7/2 + 7*8/2 = 55 = 10*11/2.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=IntegerQ[Sqrt[n]]
    T[n_]:=n(n+1)/2
    a[n_]:=Sum[If[SQ[8(T[i]+T[j]+T[n-i-j])+1],1,0],{i,1,n/3},{j,i,(n-i)/2}]
    Table[a[n],{n,1,100}]
  • PARI
    a(n)=my(t=(n+1)*n/2,s);sum(x=1,n\3,s=t-n--*x;sum(y=x,n\2,is_A000217(s-(n-y)*y))) \\ - M. F. Hasler, Oct 11 2013
Previous Showing 11-20 of 53 results. Next