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.

Showing 1-4 of 4 results.

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

Original entry on oeis.org

1, -1, 0, 1, -1, 1, -1, 1, 0, -2, 4, -4, 1, 3, -5, 4, -3, 3, -1, -6, 13, -12, 2, 9, -13, 10, -6, 6, -4, -9, 28, -30, 5, 25, -28, 5, 9, 7, -27, 11, 32, -47, 2, 51, -27, -74, 128, -34, -131, 183, -78, -15, -37, 97, 89, -480, 649, -242, -498, 904, -663, 223, -140, 169, 488, -1818
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 21 2019

Keywords

Comments

Invert transform of A010815.
Alternating row sums of Riordan triangle (1, 1 - Product_{j>=1} (1-x^j) ), See A341418(n, m) without column {1, repeat(0)} for m = 0 and n >= 0. - Wolfdieter Lang, Feb 17 2021

Links

Crossrefs

Cf. A010815, A055887, A299105, A341418.
Cf. A307057, A307058, A307060, A307062, A307063.

Programs

  • Magma
    m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(2 - (&*[1 - x^j: j in [1..m+2]])) )); // G. C. Greubel, Sep 08 2023
  • Mathematica
    nmax=65; CoefficientList[Series[1/(2 - Product[(1 - x^k), {k, nmax}]), {x, 0, nmax}], x]
  • SageMath
    from sage.modular.etaproducts import qexp_eta
m=80;
def f(x): return 1/(2 - qexp_eta(QQ[['q']], m+2).subs(q=x) )
def A307059_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(x) ).list()
A307059_list(m) # G. C. Greubel, Sep 08 2023

Formula

a(0) = 1; a(n) = Sum_{k=1..n} A010815(k)*a(n-k).
G.f.: 1/(2 - QPochhammer(x)). - G. C. Greubel, Sep 08 2023

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

Original entry on oeis.org

1, 0, 1, 1, 3, 4, 10, 15, 33, 55, 111, 195, 380, 684, 1306, 2389, 4507, 8313, 15591, 28881, 53991, 100257, 187086, 347860, 648512, 1206656, 2248399, 4185087, 7796011, 14514195, 27033073, 50334299, 93741325, 174552379, 325067573, 605316388, 1127249250, 2099115548, 3909023438, 7279285948
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 21 2019

Keywords

Comments

Invert transform of A002865.

Links

Crossrefs

Cf. A002865, A055887, A304969, A307058, A307059, A307060, A307062, A307063.

Programs

  • Magma
    m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(2 - 1/(&*[1 - x^j: j in [2..m+2]])) )); // G. C. Greubel, Jan 24 2024
  • Mathematica
    nmax = 50; CoefficientList[Series[1/(2 - Product[1/(1 - x^k), {k, 2, nmax}]), {x, 0, nmax}], x]
a[0]= 1; a[n_]:= a[n]= Sum[(PartitionsP[k] -PartitionsP[k-1]) a[n-k], {k,n}];
Table[a[n], {n,0,50}]
CoefficientList[Series[1/(2 -(1-x)/QPochhammer[x]), {x,0,80}], x] (* G. C. Greubel, Jan 24 2024 *)
  • SageMath
    m=80;
def f(x): return 1/( 2 - (1-x)/product(1 - x^j for j in range(1,m+3)) )
def A307057_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(x) ).list()
A307057_list(m) # G. C. Greubel, Jan 24 2024

Formula

a(0) = 1; a(n) = Sum_{k=1..n} A002865(k)*a(n-k).
a(n) ~ c / r^n, where r = 0.53700045638650021831634004949965496126950171484122... is the root of the equation 1 - r = 2*QPochhammer[r] and c = 0.2143395760756683581919851351414497181589685708674442097498294834747517926...
From G. C. Greubel, Jan 24 2024: (Start)
G.f.: 1/( 2 - (1-x)/QPochhammer(x) ).
G.f.: 1/( 2 - x^(1/24)*(1-x)/eta(x) ), where eta(x) is the Dedekind eta function. (End)

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

Original entry on oeis.org

1, -1, 1, -2, 4, -7, 12, -21, 38, -68, 120, -212, 377, -670, 1188, -2107, 3740, -6638, 11778, -20898, 37084, -65808, 116775, -207212, 367696, -652478, 1157815, -2054524, 3645730, -6469316, 11479734, -20370656, 36147506, -64143372, 113821732, -201975429, 358403220, -635982680, 1128544452, -2002589998
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 21 2019

Keywords

Comments

Invert transform of A081362.

Links

Crossrefs

Cf. A081362, A299208, A304969, A307058.
Cf. A307057, A307058, A307059, A307062, A307063.

Programs

  • Magma
    m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(2 - (&*[1-x^(2*j-1): j in [1..m+2]])) )); // G. C. Greubel, Jan 24 2024
  • Mathematica
    nmax = 39; CoefficientList[Series[1/(2 - Product[1/(1 + x^k), {k, 1, nmax}]), {x, 0, nmax}], x]
  • SageMath
    m=80;
def f(x): return 1/( 2 - product(1-x^(2*j-1) for j in range(1,m+3)) )
def A307060_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(x) ).list()
A307060_list(m) # G. C. Greubel, Jan 24 2024

Formula

G.f.: 1/(2 - Product_{k>=1} (1 - x^(2*k-1))).
a(0) = 1; a(n) = Sum_{k=1..n} A081362(k)*a(n-k).
From G. C. Greubel, Jan 24 2024: (Start)
G.f.: 1/(2 - QPochhammer(x)/QPochhammer(x^2)).
G.f.: 1/(2 - x^(1/24)*eta(x)/eta(x^2)), where eta(x) is the Dedekind eta function. (End)

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

Original entry on oeis.org

1, 1, 3, 10, 28, 85, 252, 745, 2202, 6530, 19326, 57194, 169341, 501242, 1483816, 4392531, 13002772, 38491212, 113943278, 337298400, 998482338, 2955742400, 8749688247, 25901125616, 76673399424, 226971213462, 671887935923, 1988945626648, 5887744768722, 17429103155892, 51594226501776
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 21 2019

Keywords

Comments

Invert transform of A022629.
a(n) is the number of compositions of n where there are A022629(k) sorts of part k. - Joerg Arndt, Jan 24 2024

Links

Crossrefs

Cf. A022629, A299164, A304969, A320652.
Cf. A307057, A307058, A307059, A307060, A307062.

Programs

  • Magma
    m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(2 - (&*[(1+j*x^j): j in [1..m+2]])) ));
  • Mathematica
    nmax = 30; CoefficientList[Series[1/(2 - Product[(1 + k x^k), {k, 1, nmax}]), {x, 0, nmax}], x]
  • SageMath
    m=80;
def f(x): return 1/( 2 - product(1+j*x^j for j in range(1,m+3)) )
def A307063_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(x) ).list()
A307063_list(m) # G. C. Greubel, Jan 24 2024

Formula

a(0) = 1; a(n) = Sum_{k=1..n} A022629(k)*a(n-k).
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.