A280953 -id:A280953 - cp's OEIS frontend

A280950 Expansion of Product_{k>=0} 1/(1 - x^(3k(k+1)/2+1)).

1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 11, 11, 12, 13, 15, 15, 16, 17, 19, 20, 22, 24, 26, 27, 29, 31, 33, 34, 37, 40, 43, 45, 48, 51, 54, 56, 60, 63, 67, 70, 76, 80, 84, 87, 93, 97, 102, 106, 113, 118, 125, 130, 138, 143, 151, 157, 166, 172, 181, 189, 200, 207, 217, 225, 237, 245, 257, 267, 280

Offset: 0

Ilya Gutkovskiy, Jan 11 2017

nonn

Number of partitions of n into centered triangular numbers (A005448).

			a(8) = 3 because we have [4, 4], [4, 1, 1, 1, 1] and [1, 1, 1, 1, 1, 1, 1, 1].

Robert Israel, Table of n, a(n) for n = 0..10000
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
Eric Weisstein's World of Mathematics, Centered Triangular Number
Index entries for sequences related to centered polygonal numbers
Index entries for related partition-counting sequences

Cf. A005448, A007294, A068980, A280951, A280952, A280953.

N:= 100:
kmax:= floor((sqrt(24*N-15)-3)/6):
S:= series(mul(1/(1-x^(3*k*(k+1)/2+1)),k=0..kmax),x,N+1):
seq(coeff(S,x,j),j=0..N); # Robert Israel, Jan 25 2017

nmax = 78; CoefficientList[Series[Product[1/(1 - x^(3 k (k + 1)/2 + 1)), {k, 0, nmax}], {x, 0, nmax}], x]

G.f.: Product_{k>=0} 1/(1 - x^(3*k*(k+1)/2+1)).

A280951 Expansion of Product_{k>=0} 1/(1 - x^(2k(k+1)+1)).

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 4, 4, 5, 5, 5, 6, 6, 7, 7, 7, 8, 8, 10, 11, 11, 12, 12, 14, 15, 15, 16, 16, 18, 19, 19, 21, 22, 24, 26, 26, 28, 29, 31, 33, 33, 35, 36, 39, 42, 43, 45, 47, 50, 53, 54, 56, 58, 61, 65, 66, 69, 72, 76, 81, 83, 86, 89, 93, 98, 100, 103, 107, 112, 118, 121, 125, 130, 136, 142, 146

Offset: 0

Ilya Gutkovskiy, Jan 11 2017

nonn

Number of partitions of n into centered square numbers (A001844).

			a(10) = 3 because we have [5, 5], [5, 1, 1, 1, 1, 1] and [1, 1, 1, 1, 1, 1, 1, 1, 1, 1].

M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
Eric Weisstein's World of Mathematics, Centered Square Number
Index entries for sequences related to centered polygonal numbers
Index entries for related partition-counting sequences

Cf. A001156, A001844, A279220, A280950, A280952, A280953.

nmax = 82; CoefficientList[Series[Product[1/(1 - x^(2 k (k + 1) + 1)), {k, 0, nmax}], {x, 0, nmax}], x]

G.f.: Product_{k>=0} 1/(1 - x^(2*k*(k+1)+1)).

A280952 Expansion of Product_{k>=0} 1/(1 - x^(5k(k+1)/2+1)).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 5, 5, 5, 5, 6, 6, 7, 7, 7, 7, 8, 8, 9, 10, 11, 11, 12, 12, 13, 14, 15, 15, 16, 16, 17, 18, 19, 19, 20, 21, 23, 24, 25, 26, 27, 28, 30, 31, 32, 33, 34, 35, 37, 38, 40, 42, 44, 45, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 67, 68, 71, 74, 77, 79, 83, 85, 88, 91, 94, 96, 100

Offset: 0

Ilya Gutkovskiy, Jan 11 2017

nonn

Number of partitions of n into centered pentagonal numbers (A005891).

			a(12) = 3 because we have [6, 6], [6, 1, 1, 1, 1, 1, 1] and [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1].

Alois P. Heinz, Table of n, a(n) for n = 0..20000
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
Eric Weisstein's World of Mathematics, Centered Pentagonal Number
Index entries for sequences related to centered polygonal numbers
Index entries for related partition-counting sequences

Cf. A005891, A218379, A279221, A280950, A280951, A280953.

h:= proc(n) option remember; `if`(n<0, 0, (t->
      `if`(((t+1)*5*t+2)/2>n, t-1, t))(1+h(n-1)))
    end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<0, 0,
      b(n, i-1)+(t-> b(n-t, min(i, h(n-t))))(((i+1)*5*i+2)/2)))
    end:
a:= n-> b(n, h(n)):
seq(a(n), n=0..100);  # Alois P. Heinz, Dec 28 2018

nmax = 88; CoefficientList[Series[Product[1/(1 - x^(5 k (k + 1)/2 + 1)), {k, 0, nmax}], {x, 0, nmax}], x]

G.f.: Product_{k>=0} 1/(1 - x^(5*k*(k+1)/2+1)).

A281084 Expansion of Product_{k>=0} (1 + x^(3k(k+1)+1)).

Original entry on oeis.org

1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, 0, 1

Offset: 0

Ilya Gutkovskiy, Jan 14 2017

nonn

Number of partitions of n into distinct centered hexagonal numbers (A003215).

			a(98) = 2 because we have [91, 7] and [61, 37].

G. C. Greubel, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Hex Number
Index entries for sequences related to centered polygonal numbers
Index entries for related partition-counting sequences

Cf. A003215, A279279, A280953, A281081, A281082, A281083.

nmax = 105; CoefficientList[Series[Product[1 + x^(3 k (k + 1) + 1), {k, 0, nmax}], {x, 0, nmax}], x]

G.f.: Product_{k>=0} (1 + x^(3*k*(k+1)+1)).

A322802 Number of compositions (ordered partitions) of n into centered hexagonal numbers (A003215).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 10, 13, 17, 22, 28, 36, 45, 56, 70, 88, 111, 140, 178, 226, 286, 361, 455, 573, 721, 909, 1148, 1451, 1834, 2318, 2928, 3695, 4661, 5880, 7420, 9366, 11826, 14935, 18860, 23812, 30059, 37941, 47888, 60445, 76302, 96327

Offset: 0

Ilya Gutkovskiy, Dec 26 2018

nonn

Eric Weisstein's World of Mathematics, Hex Number
Index entries for sequences related to compositions

Cf. A003215, A280863, A280953, A281084, A282502, A282504, A322798, A322801, A322803.

h:= proc(n) option remember; `if`(n<0, 0, (t->
      `if`(3*t*(t+1)+1>n, t-1, t))(1+h(n-1)))
    end:
a:= proc(n) option remember; `if`(n=0, 1,
      add(a(n-(3*i*(i+1)+1)), i=0..h(n)))
    end:
seq(a(n), n=0..60);  # Alois P. Heinz, Dec 28 2018

nmax = 53; CoefficientList[Series[1/(1 - Sum[x^(3 k (k + 1) + 1), {k, 0, nmax}]), {x, 0, nmax}], x]

G.f.: 1/(1 - Sum_{k>=0} x^(3*k*(k+1)+1)).

A286935 Number of partitions of n into primes which are the difference of two consecutive cubes (A002407).

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 2, 1, 1, 1, 0, 2, 0, 2, 1, 1, 1, 0, 2, 0, 2, 1, 1, 1, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 1, 2, 1, 3, 1, 2, 1, 2, 3, 2, 3, 1, 3, 2, 2

Offset: 0

Ilya Gutkovskiy, May 16 2017

nonn

			a(56) = 2 because we have [37, 19] and [7, 7, 7, 7, 7, 7, 7, 7].

G. C. Greubel, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Cuban Prime
Eric Weisstein's World of Mathematics, Hex Number
Index entries for sequences related to centered polygonal numbers
Index entries for sequences related to partitions

Cf. A000607, A002407, A003215, A280953, A286934.

nmax = 100; CoefficientList[Series[Product[1/(1 - x^k), {k, Select[(Range[nmax] + 1)^3 - Range[nmax]^3, PrimeQ]}], {x, 0, nmax}], x]

G.f.: Product_{k>=1} 1/(1 - x^A002407(k)).

cp's OEIS Frontend

A280950 Expansion of Product_{k>=0} 1/(1 - x^(3*k*(k+1)/2+1)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A280951 Expansion of Product_{k>=0} 1/(1 - x^(2*k*(k+1)+1)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A280952 Expansion of Product_{k>=0} 1/(1 - x^(5*k*(k+1)/2+1)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A281084 Expansion of Product_{k>=0} (1 + x^(3*k*(k+1)+1)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A322802 Number of compositions (ordered partitions) of n into centered hexagonal numbers (A003215).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A286935 Number of partitions of n into primes which are the difference of two consecutive cubes (A002407).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A280950 Expansion of Product_{k>=0} 1/(1 - x^(3k(k+1)/2+1)).

A280951 Expansion of Product_{k>=0} 1/(1 - x^(2k(k+1)+1)).

A280952 Expansion of Product_{k>=0} 1/(1 - x^(5k(k+1)/2+1)).

A281084 Expansion of Product_{k>=0} (1 + x^(3k(k+1)+1)).