login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A307311 Expansion of Product_{k>=1} 1/(1 + x^k/(1 - x)^k). 2
1, -1, -1, -2, -3, -4, -5, -6, -6, -1, 19, 74, 200, 461, 977, 1987, 3976, 7902, 15559, 30105, 56778, 103833, 183765, 314882, 523007, 841752, 1305431, 1916607, 2540433, 2609983, 381628, -8814988, -36463325, -109113400, -285322360, -689608522, -1579574566, -3477967848 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,4
COMMENTS
First differences of the binomial transform of A081362.
Convolution inverse of A129519.
LINKS
MAPLE
a:=series(mul(1/(1+x^k/(1-x)^k), k=1..100), x=0, 38): seq(coeff(a, x, n), n=0..37); # Paolo P. Lava, Apr 02 2019
MATHEMATICA
nmax = 40; CoefficientList[Series[Product[1/(1 + x^k/(1 - x)^k), {k, 1, nmax}], {x, 0, nmax}], x]
PROG
(PARI) m=40; my(x='x+O('x^m)); Vec( 1/prod(k=1, m+2, (1+x^k/(1-x)^k)) ) \\ G. C. Greubel, Apr 03 2019
(Magma) m:=40; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( 1/(&*[(1+x^k/(1-x)^k): k in [1..m+2]]) )); // G. C. Greubel, Apr 03 2019
(Sage) m=40; (1/product(1+x^k/(1-x)^k for k in (1..m+2))).series(x, m).coefficients(x, sparse=False) # G. C. Greubel, Apr 03 2019
CROSSREFS
Sequence in context: A331173 A307089 A239132 * A272081 A317582 A293705
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Apr 02 2019
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)