A294505 -id:A294505 - cp's OEIS frontend

A294501 Inverse binomial transform of the number of planar partitions (A000219).

1, 0, 2, -1, 4, -7, 19, -48, 123, -304, 728, -1694, 3865, -8735, 19739, -44875, 102818, -236939, 546988, -1260023, 2888607, -6584008, 14927816, -33714166, 75976024, -171095098, 385405617, -868708176, 1959010348, -4417777937, 9957188242, -22420045445

Offset: 0

Vaclav Kotesovec, Nov 01 2017

sign

Vaclav Kotesovec, Table of n, a(n) for n = 0..3000

Cf. A281425, A293467, A294500, A294503, A294505.

nmax = 40; s = CoefficientList[Series[Product[1/(1-x^k)^k, {k, 1, nmax}], {x, 0, nmax}], x]; Table[Sum[(-1)^(n-k) * Binomial[n, k] * s[[k+1]], {k, 0, n}], {n, 0, nmax}]

a(n) = Sum_{k=0..n} (-1)^(n-k) * binomial(n,k) * A000219(k).

G.f.: (1/(1 + x))*exp(Sum_{k>=1} sigma_2(k)*x^k/(k*(1 + x)^k)). - Ilya Gutkovskiy, Aug 20 2018

A294503 Inverse binomial transform of A026007.

Original entry on oeis.org

1, 0, 1, 1, -3, 10, -23, 48, -92, 171, -321, 626, -1265, 2576, -5099, 9478, -15925, 22617, -21816, -8506, 121659, -436121, 1204710, -2962759, 6860591, -15427559, 34323613, -76269455, 169591278, -376162414, 827819644, -1798045927, 3839392935, -8041078328

Offset: 0

Vaclav Kotesovec, Nov 01 2017

sign

Vaclav Kotesovec, Table of n, a(n) for n = 0..3000

Cf. A026007, A294501, A294502, A294505.

nmax = 40; s = CoefficientList[Series[Product[(1+x^k)^k, {k, 1, nmax}], {x, 0, nmax}], x]; Table[Sum[(-1)^(n-k) * Binomial[n, k] * s[[k+1]], {k, 0, n}], {n, 0, nmax}]

a(n) = Sum_{k=0..n} (-1)^(n-k) * binomial(n,k) * A026007(k).

G.f.: (1/(1 + x))*Product_{k>=1} (1 + x^k/(1 + x)^k)^k. - Ilya Gutkovskiy, Aug 20 2018

A294504 Binomial transform of A156616.

Original entry on oeis.org

1, 3, 11, 41, 147, 509, 1717, 5671, 18395, 58735, 184961, 575337, 1769981, 5390997, 16270587, 48696299, 144620059, 426428645, 1249007767, 3635595953, 10520770265, 30278391475, 86689798089, 246988386691, 700439171501, 1977660342139, 5560497703461

Offset: 0

Vaclav Kotesovec, Nov 01 2017

nonn

Vaclav Kotesovec, Table of n, a(n) for n = 0..2840

Cf. A156616, A218481, A294500, A294502, A294505.

nmax = 40; s = CoefficientList[Series[Product[((1+x^k)/(1-x^k))^k, {k, 1, nmax}], {x, 0, nmax}], x]; Table[Sum[Binomial[n, k] * s[[k+1]], {k, 0, n}], {n, 0, nmax}]

a(n) = Sum_{k=0..n} binomial(n,k) * A156616(k).
a(n) ~ exp(3 * (7*Zeta(3))^(1/3) * n^(2/3) / 4 + (7*Zeta(3))^(2/3) * n^(1/3) / 8 + 1/12 - 7*Zeta(3)/48) * (7*Zeta(3))^(7/36) * 2^(n - 1/12) / (A * sqrt(3*Pi) * n^(25/36)), where A is the Glaisher-Kinkelin constant A074962.
G.f.: (1/(1 - x))*exp(Sum_{k>=1} (sigma_2(2*k) - sigma_2(k))*x^k/(2*k*(1 - x)^k)). - Ilya Gutkovskiy, Oct 15 2018

cp's OEIS Frontend

A294501 Inverse binomial transform of the number of planar partitions (A000219).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A294503 Inverse binomial transform of A026007.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

A294504 Binomial transform of A156616.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula