A301555 -id:A301555 - cp's OEIS frontend

A318814 Expansion of e.g.f. Product_{k>=1} ((1 + x^k)/(1 - x^k))^(sigma(k)/k).

1, 2, 10, 64, 512, 4768, 53056, 645440, 8868352, 133302016, 2184149504, 38530160128, 733246566400, 14834910150656, 319778313883648, 7292507623063552, 175517505539538944, 4440588163825008640, 117969026857318678528, 3276703253565946855424, 95086071773832697348096

Offset: 0

Vaclav Kotesovec, Sep 04 2018

nonn

Convolution of A305127 and A318769.

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

Cf. A000203, A305127, A301554, A301555, A318769.

nmax = 20; CoefficientList[Series[Product[((1+x^k)/(1-x^k))^(DivisorSigma[1, k]/k), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!

log(a(n)/n!) ~ Pi^2 * sqrt(n/6).

A318975 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^phi(k), where phi is the Euler totient function A000010.

Original entry on oeis.org

1, 2, 4, 10, 20, 42, 80, 154, 288, 522, 940, 1658, 2892, 4970, 8456, 14218, 23696, 39122, 64044, 104042, 167732, 268602, 427248, 675482, 1061632, 1659298, 2579676, 3990418, 6142892, 9412906, 14360136, 21814698, 33004704, 49739426, 74677924, 111713658

Offset: 0

Vaclav Kotesovec, Sep 06 2018

nonn

Convolution of A299069 and A061255.

			a(n) ~ exp(3^(4/3) * (7*Zeta(3))^(1/3) * n^(2/3) / (2*Pi^(2/3)) - 1/6) * A^2 * (7*Zeta(3))^(1/9) / (sqrt(2) * 3^(7/18) * Pi^(8/9) * n^(11/18)), where A is the Glaisher-Kinkelin constant A074962.

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

Cf. A061255, A299069, A301554, A301555.

Cf. A318976, A318814, A318977.

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

A318976 Expansion of e.g.f. Product_{k>=1} ((1 + x^k)/(1 - x^k))^(phi(k)/k), where phi is the Euler totient function A000010.

Original entry on oeis.org

1, 2, 6, 32, 196, 1512, 13384, 135872, 1545744, 19441952, 268386784, 4018603008, 65021744704, 1127284876928, 20880206388864, 410781080941568, 8561002328678656, 188224613741879808, 4355496092560324096, 105752112730661347328, 2688539359466319184896

Offset: 0

Vaclav Kotesovec, Sep 06 2018

nonn

Convolution of A088009 and A000262.

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

Cf. A000262, A088009, A318814, A318977.

Cf. A318975, A301555, A301554.

nmax = 20; CoefficientList[Series[Product[((1+x^k)/(1-x^k))^(EulerPhi[k]/k), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!
nmax = 20; CoefficientList[Series[E^(x*(2 + x)/(1 - x^2)), {x, 0, nmax}], x] * Range[0, nmax]!

E.g.f.: exp(x*(2 + x)/(1 - x^2)).

a(n) ~ 2^(-3/4) * 3^(1/4) * exp(sqrt(6*n) - n - 1/2) * n^(n - 1/4).

A318977 Expansion of e.g.f. Product_{k>=1} ((1 + x^k)/(1 - x^k))^(tau(k)/k), where tau is A000005.

Original entry on oeis.org

1, 2, 8, 44, 292, 2296, 21472, 221168, 2554544, 32617952, 452957056, 6788855872, 110098330048, 1900192498304, 34971968379392, 683452436531456, 14097619892177152, 306168410773570048, 6998327049216231424, 167369475021548506112, 4187842602663179396096

Offset: 0

Vaclav Kotesovec, Sep 06 2018

nonn

Convolution of A318696 and A318695.

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

Cf. A318695, A318696, A318814, A318976.

Cf. A318975, A301555, A301554.

nmax = 20; CoefficientList[Series[Product[((1+x^k)/(1-x^k))^(DivisorSigma[0, k]/k), {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!

A320971 Expansion of Product_{k>=1} ((1 - x^k)/(1 + x^k))^(sigma(k)).

Original entry on oeis.org

1, -2, -4, 2, 10, 22, -4, -26, -68, -104, -12, 110, 378, 486, 448, -66, -1130, -2242, -3044, -2474, -322, 5106, 11064, 16954, 17896, 10440, -8032, -40132, -74578, -105754, -108564, -66534, 42672, 209858, 421352, 611946, 690204, 553534, 82112, -735082, -1892200

Offset: 0

Seiichi Manyama, Oct 25 2018

sign

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Convolution inverse of A301555.
Product_{k>=1} ((1 - x^k)/(1 + x^k))^(sigma_b(k)): A320908 (b=0), this sequence (b=1), A320972 (b=2).
Cf. A000203, A288385, A288421.

m:=80; R:=PowerSeriesRing(Rationals(), m); Coefficients(R!(  (&*[((1-q^k)/(1+q^k))^DivisorSigma(1,k): k in [1..(m+2)]]) )); // G. C. Greubel, Oct 29 2018

With[{nmax=80}, CoefficientList[Series[Product[((1-q^k)/(1+q^k) )^DivisorSigma[1,k], {k, 1, nmax+2}], {q, 0, nmax}], q]] (* G. C. Greubel, Oct 29 2018 *)

N=99; x='x+O('x^N); Vec(prod(k=1, N, ((1-x^k)/(1+x^k))^sigma(k)))

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

Original entry on oeis.org

1, 2, 8, 26, 76, 216, 590, 1554, 3988, 9988, 24464, 58794, 138866, 322808, 739658, 1672372, 3734848, 8245956, 18012114, 38952586, 83448832, 177194716, 373111970, 779430870, 1615995262, 3326484686, 6800794428, 13813260736, 27881653590, 55942340000, 111601021856

Offset: 0

Ilya Gutkovskiy, Apr 03 2018

nonn

Convolution of the sequences A000294 and A028377.

N. J. A. Sloane, Transforms

Cf. A000217, A000294, A015128, A028377, A156616, A206622, A206623, A206624, A260916, A261386, A261452, A261519, A261520, A301554, A301555.

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

G.f.: Product_{k>=1} ((1 + x^k)/(1 - x^k))^A000217(k).
a(n) ~ exp(2*Pi*n^(3/4)/3 + 7*Zeta(3)*sqrt(n) / (2*Pi^2) - 49*Zeta(3)^2 * n^(1/4) / (4*Pi^5) + 22411 * Zeta(3)^3 / (392*Pi^8) - Zeta(3)/(8*Pi^2) + 1/24) * Pi^(1/24) / (sqrt(A) * 2^(25/12) * n^(61/96)), where A is the Glaisher-Kinkelin constant A074962. - Vaclav Kotesovec, Apr 08 2018
G.f.: A(x) = exp( 2*Sum_{n >= 0} x^(2*n+1)/((2*n+1)*(1 - x^(2*n+1))^3) ). Cf. A000122 and A156616. - Peter Bala, Dec 23 2021

A318579 Expansion of Product_{i>=1, j>=1} ((1 + x^(ij))/(1 - x^(ij)))^(i*j).

Original entry on oeis.org

1, 2, 10, 30, 98, 270, 786, 2046, 5418, 13556, 33726, 81002, 192902, 447562, 1027990, 2316750, 5165398, 11345298, 24668952, 52972902, 112688802, 237193354, 494933514, 1023238806, 2098662698, 4269141516, 8620916966, 17280687472, 34405835066, 68044209950, 133732805458

Offset: 0

Ilya Gutkovskiy, Aug 29 2018

nonn

Convolution of A280540 and A280541.

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

Cf. A000005, A038040, A156616, A280540, A280541, A301554, A301555.

a:=series(mul(mul(((1+x^(i*j))/(1-x^(i*j)))^(i*j),j=1..100),i=1..100),x=0,31): seq(coeff(a,x,n),n=0..30); # Paolo P. Lava, Apr 02 2019

nmax = 30; CoefficientList[Series[Product[Product[((1 + x^(i j))/(1 - x^(i j)))^(i j), {i, 1, nmax}], {j, 1, nmax}], {x, 0, nmax}], x]
nmax = 30; CoefficientList[Series[Product[((1 + x^k)/(1 - x^k))^(k DivisorSigma[0, k]), {k, 1, nmax}], {x, 0, nmax}], x]
a[n_] := a[n] = If[n == 0, 1, Sum[Sum[(1 - (-1)^(k/d)) d^2 DivisorSigma[0, d], {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 30}]

G.f.: Product_{k>=1} ((1 + x^k)/(1 - x^k))^(k*tau(k)), where tau(k) = number of divisors of k (A000005).
G.f.: exp(Sum_{k>=1} ( Sum_{d|k} (1 - (-1)^(k/d))*d^2*tau(d) ) * x^k/k).
log(a(n)) ~ 3^(2/3) * (7*Zeta(3))^(1/3) * log(n)^(1/3) * n^(2/3) / 2^(4/3). - Vaclav Kotesovec, Sep 03 2018

A321057 a(n) = [x^n] Product_{k>=1} ((1 + x^k)/(1 - x^k))^sigma_n(k).

Original entry on oeis.org

1, 2, 12, 94, 1522, 48154, 3087600, 377880794, 93356591804, 46415548879976, 44773963087975388, 86770399797767582434, 340765670578000502365102, 2625605734866823121935402410, 40755373130582885082115865730892, 1290109927277547765958474680645604818

Offset: 0

Seiichi Manyama, Oct 26 2018

nonn

Seiichi Manyama, Table of n, a(n) for n = 0..80

Cf. A301554, A301555, A301556, A319647, A321042, A321068.

Table[SeriesCoefficient[Product[((1 + x^k)/(1 - x^k))^DivisorSigma[n, k], {k, 1, n}], {x, 0, n}], {n, 0, 15}] (* Vaclav Kotesovec, Oct 27 2018 *)

{a(n) = polcoeff(prod(k=1, n, ((1+x^k+x*O(x^n))/(1-x^k+x*O(x^n)))^sigma(k, n)), n)}

A302238 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^prime(k).

Original entry on oeis.org

1, 4, 14, 46, 136, 382, 1022, 2626, 6530, 15784, 37218, 85842, 194146, 431358, 943038, 2031454, 4316884, 9058662, 18787730, 38542526, 78264298, 157403290, 313712482, 619919350, 1215125262, 2363570168, 4563951858, 8751621598, 16670498062, 31553539214, 59361428202

Offset: 0

Ilya Gutkovskiy, Apr 03 2018

nonn

Convolution of the sequences A030009 and A061152.

N. J. A. Sloane, Transforms

Cf. A000040, A015128, A030009, A061152, A156616, A206622, A206623, A206624, A260916, A261386, A261452, A261519, A261520, A301554, A301555.

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

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

A302239 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^p(k), where p(k) = number of partitions of k (A000041).

Original entry on oeis.org

1, 2, 6, 16, 40, 96, 226, 512, 1140, 2488, 5336, 11270, 23494, 48356, 98438, 198338, 395846, 783136, 1536800, 2992818, 5786952, 11114950, 21213906, 40247696, 75928804, 142475644, 265985628, 494155176, 913802164, 1682338192, 3084101744, 5630853218, 10240484332, 18553818210

Offset: 0

Ilya Gutkovskiy, Apr 03 2018

nonn

Convolution of the sequences A001970 and A261049.

N. J. A. Sloane, Transforms

Cf. A000041, A001970, A015128, A156616, A206622, A206623, A206624, A260916, A261049, A261386, A261452, A261519, A261520, A301554, A301555, A302237, A302238.

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

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

cp's OEIS Frontend

A318814 Expansion of e.g.f. Product_{k>=1} ((1 + x^k)/(1 - x^k))^(sigma(k)/k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A318975 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^phi(k), where phi is the Euler totient function A000010.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A318976 Expansion of e.g.f. Product_{k>=1} ((1 + x^k)/(1 - x^k))^(phi(k)/k), where phi is the Euler totient function A000010.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A318977 Expansion of e.g.f. Product_{k>=1} ((1 + x^k)/(1 - x^k))^(tau(k)/k), where tau is A000005.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

A320971 Expansion of Product_{k>=1} ((1 - x^k)/(1 + x^k))^(sigma(k)).

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A318579 Expansion of Product_{i>=1, j>=1} ((1 + x^(i*j))/(1 - x^(i*j)))^(i*j).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A321057 a(n) = [x^n] Product_{k>=1} ((1 + x^k)/(1 - x^k))^sigma_n(k).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

A318579 Expansion of Product_{i>=1, j>=1} ((1 + x^(ij))/(1 - x^(ij)))^(i*j).