A001490 -id:A001490 - cp's OEIS frontend

A047641 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^16 in powers of x.

1, -16, 120, -560, 1804, -4128, 6312, -3920, -10530, 42208, -82752, 99584, -39460, -141200, 422568, -673936, 660941, -144720, -938840, 2301568, -3257188, 2916592, -628040, -3492160, 8217536, -11341568, 10408280, -3885040, -7668720, 21033408

Offset: 16

N. J. A. Sloane

sign

Alois P. Heinz, Table of n, a(n) for n = 16..10000
H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.
H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)

Cf. A001482 - A001488, A001490, A047638 - A047640, A047642 - A047649, A047654, A047655, A341243.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(16) )); // G. C. Greubel, Sep 07 2023

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]
      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),
      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))
    end:
a:= n-> b(n, 16):
seq(a(n), n=16..45);  # Alois P. Heinz, Feb 07 2021

nmax=45; CoefficientList[Series[(Product[(1-(-x)^j), {j,nmax}] -1)^16, {x,0,nmax}], x]//Drop[#, 16] & (* Ilya Gutkovskiy, Feb 07 2021 *)
With[{k=16}, Drop[CoefficientList[Series[(QPochhammer[-x] -1)^k, {x,0, 75}], x], k]] (* G. C. Greubel, Sep 07 2023 *)

my(x='x+O('x^40)); Vec((eta(-x)-1)^16) \\ Joerg Arndt, Sep 07 2023

from sage.modular.etaproducts import qexp_eta
m=75; k=16;
def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
def A047641_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(k,x) ).list()
a=A047641_list(m); a[k:] # G. C. Greubel, Sep 07 2023

a(n) = [x^n]( QPochhammer(-x) - 1 )^16. - G. C. Greubel, Sep 07 2023

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

A047642 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^17 in powers of x.

Original entry on oeis.org

1, -17, 136, -680, 2363, -5916, 10319, -9656, -8534, 57426, -133076, 190383, -134810, -140148, 657611, -1240116, 1461337, -770917, -1171504, 4061946, -6678161, 7071269, -3376863, -4939180, 15963612, -25098443, 26265408, -14513461, -10810368, 43792034

Offset: 17

N. J. A. Sloane

sign

Alois P. Heinz, Table of n, a(n) for n = 17..10000
H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.
H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)

Cf. A001482 - A001488, A001490, A047638 - A047641, A047643 - A047649, A047654, A047655, A341243.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(17) )); // G. C. Greubel, Sep 07 2023

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]
      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),
      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))
    end:
a:= n-> b(n, 17):
seq(a(n), n=17..46);  # Alois P. Heinz, Feb 07 2021

nmax=46; CoefficientList[Series[(Product[(1-(-x)^j), {j,nmax}] - 1)^17, {x, 0, nmax}], x]//Drop[#, 17] & (* Ilya Gutkovskiy, Feb 07 2021 *)
With[{k=17}, Drop[CoefficientList[Series[(QPochhammer[-x] -1)^k, {x,0, 75}], x], k]] (* G. C. Greubel, Sep 07 2023 *)

my(x='x+O('x^40)); Vec((eta(-x)-1)^17) \\ Joerg Arndt, Sep 07 2023

from sage.modular.etaproducts import qexp_eta
m=75; k=17;
def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
def A047642_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(k,x) ).list()
a=A047642_list(m); a[k:] # G. C. Greubel, Sep 07 2023

a(n) = [x^n]( QPochhammer(-x) - 1 )^17. - G. C. Greubel, Sep 07 2023

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

A047643 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^18 in powers of x.

Original entry on oeis.org

1, -18, 153, -816, 3042, -8262, 16098, -19278, -1377, 72556, -203184, 339030, -326961, -53244, 940050, -2147916, 2975391, -2293488, -911369, 6616332, -12906162, 15883884, -10936899, -4660974, 28758849, -52660134, 62518248, -44501988, -7465464, 84565242

Offset: 18

N. J. A. Sloane

sign

Alois P. Heinz, Table of n, a(n) for n = 18..10000
H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.
H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)

Cf. A001482 - A001488, A001490, A047638 - A047642, A047644 - A047649, A047654, A047655, A341243.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(18) )); // G. C. Greubel, Sep 07 2023

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]
      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),
      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))
    end:
a:= n-> b(n, 18):
seq(a(n), n=18..47);  # Alois P. Heinz, Feb 07 2021

nmax=47; CoefficientList[Series[(Product[(1-(-x)^j), {j,nmax}] -1)^18, {x,0,nmax}], x]//Drop[#, 18] & (* Ilya Gutkovskiy, Feb 07 2021 *)
With[{k=18}, Drop[CoefficientList[Series[(QPochhammer[-x]-1)^k, {x,0, 75}], x], k]] (* G. C. Greubel, Sep 07 2023 *)

my(x='x+O('x^35)); Vec((eta(-x)-1)^18) \\ Joerg Arndt, Sep 07 2023

from sage.modular.etaproducts import qexp_eta
m=75; k=18;
def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
def A047643_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(k,x) ).list()
a=A047643_list(m); a[k:] # G. C. Greubel, Sep 07 2023

a(n) = [x^n]( QPochhammer(-x) - 1 )^18. - G. C. Greubel, Sep 07 2023

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

A047644 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^19 in powers of x.

Original entry on oeis.org

1, -19, 171, -969, 3857, -11286, 24206, -34542, 14706, 83011, -294880, 569753, -680694, 220286, 1198672, -3502612, 5661867, -5571579, 791350, 9721976, -23494393, 33415357, -29225230, 2352751, 47086598, -104517176, 140834118, -121255530

Offset: 19

N. J. A. Sloane

sign

Alois P. Heinz, Table of n, a(n) for n = 19..10000
H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.
H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)

Cf. A001482 - A001488, A001490, A047638 - A047643, A047645 - A047649, A047654, A047655, A341243.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(19) )); // G. C. Greubel, Sep 07 2023

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]
      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),
      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))
    end:
a:= n-> b(n, 19):
seq(a(n), n=19..46);  # Alois P. Heinz, Feb 07 2021

nmax=46; CoefficientList[Series[(Product[(1-(-x)^j), {j,nmax}] - 1)^19, {x,0,nmax}], x]//Drop[#, 19] & (* Ilya Gutkovskiy, Feb 07 2021 *)
With[{k=19}, Drop[CoefficientList[Series[(QPochhammer[-x] -1)^k, {x,0, 75}], x], k]] (* G. C. Greubel, Sep 07 2023 *)

my(x='x+O('x^35)); Vec((eta(-x)-1)^19) \\ Joerg Arndt, Sep 07 2023

from sage.modular.etaproducts import qexp_eta
m=75; k=19;
def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
def A047644_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(k,x) ).list()
a=A047644_list(m); a[k:] # G. C. Greubel, Sep 07 2023

a(n) = [x^n]( QPochhammer(-x) - 1 )^19. - G. C. Greubel, Sep 07 2023

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

A047646 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^21 in powers of x.

Original entry on oeis.org

1, -21, 210, -1330, 5964, -19929, 50253, -91920, 97965, 51604, -526659, 1389297, -2280320, 2118690, 769065, -7613319, 17220042, -23999430, 18024405, 10748850, -63778953, 124134772, -152793270, 99072120, 71722224, -341062407, 610085721

Offset: 21

N. J. A. Sloane

sign

Alois P. Heinz, Table of n, a(n) for n = 21..10000
H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)
H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.

Cf. A001482 - A001488, A001490, A047638 - A047645, A047647 - A047649, A047654, A047655, A341243.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(21) )); // G. C. Greubel, Sep 06 2023

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]
      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),
      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))
    end:
a:= n-> b(n, 21):
seq(a(n), n=21..47);  # Alois P. Heinz, Feb 07 2021

nmax=47; CoefficientList[Series[(Product[(1-(-x)^j), {j,nmax}] -1)^21, {x, 0, nmax}], x]//Drop[#, 21] & (* Ilya Gutkovskiy, Feb 07 2021 *)
With[{k=21}, Drop[CoefficientList[Series[(QPochhammer[-x] - 1)^k, {x,0, 75}], x], k]] (* G. C. Greubel, Sep 06 2023 *)

my(N=44, x='x+O('x^N)); Vec((eta(-x)-1)^21) \\ Joerg Arndt, Sep 06 2023

from sage.modular.etaproducts import qexp_eta
m=75; k=21;
def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
def A047646_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(k,x) ).list()
a=A047646_list(m); a[k:] # G. C. Greubel, Sep 06 2023

a(n) = [x^n]( QPochhammer(-x) - 1 )^21. - G. C. Greubel, Sep 06 2023

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

A047647 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^22 in powers of x.

Original entry on oeis.org

1, -22, 231, -1540, 7293, -25872, 69971, -140822, 183711, -25102, -634480, 2027804, -3817814, 4439116, -919600, -9829270, 27660479, -44779042, 43632974, -1898820, -92518261, 219961214, -313463842, 267448104, 15757973, -547042056, 1173033400

Offset: 22

N. J. A. Sloane

sign

Alois P. Heinz, Table of n, a(n) for n = 22..10000
H. Gupta, On the coefficients of the powers of Dedekind's modular form (annotated and scanned copy)
H. Gupta, On the coefficients of the powers of Dedekind's modular form, J. London Math. Soc., 39 (1964), 433-440.

Cf. A001482 - A001488, A001490, A047638 - A047646, A047648, A047649, A047654, A047655, A341243.

m:=75;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( ((&*[1-(-x)^j: j in [1..m+2]]) -1)^(22) )); // G. C. Greubel, Sep 05 2023

g:= proc(n) option remember; `if`(n=0, 1, add(add([-d, d, -2*d, d]
      [1+irem(d, 4)], d=numtheory[divisors](j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, k) option remember; `if`(k=0, 1, `if`(k=1, `if`(n=0, 0, g(n)),
      (q-> add(b(j, q)*b(n-j, k-q), j=0..n))(iquo(k, 2))))
    end:
a:= n-> b(n, 22):
seq(a(n), n=22..48);  # Alois P. Heinz, Feb 07 2021

nmax=48; CoefficientList[Series[(Product[(1-(-x)^j), {j,nmax}] - 1)^22, {x, 0, nmax}], x]//Drop[#, 22] & (* Ilya Gutkovskiy, Feb 07 2021 *)
With[{k=22}, Drop[CoefficientList[Series[(QPochhammer[-x] -1)^k, {x,0, 75}], x], k]] (* G. C. Greubel, Sep 05 2023 *)

my(N=55, x='x+O('x^N)); Vec((eta(-x)-1)^22) \\ Michel Marcus, Sep 05 2023

from sage.modular.etaproducts import qexp_eta
m=75; k=22;
def f(k,x): return (-1 + qexp_eta(QQ[['q']], m+2).subs(q=-x) )^k
def A047647_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(k,x) ).list()
a=A047647_list(m); a[k:] # G. C. Greubel, Sep 05 2023

a(n) = [x^n]( QPochhammer(-x) - 1 )^22. - G. C. Greubel, Sep 05 2023

Definition and offset edited by Ilya Gutkovskiy, Feb 07 2021

cp's OEIS Frontend

A047641 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^16 in powers of x.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

SageMath

Formula

Extensions

A047642 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^17 in powers of x.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

SageMath

Formula

Extensions

A047643 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^18 in powers of x.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

SageMath

Formula

Extensions

A047644 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^19 in powers of x.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

SageMath

Formula

Extensions

A047646 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^21 in powers of x.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

SageMath

Formula

Extensions

A047647 Expansion of (Product_{j>=1} (1-(-x)^j) - 1)^22 in powers of x.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Maple