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.
%I A307311 #15 Sep 08 2022 08:46:21 %S A307311 1,-1,-1,-2,-3,-4,-5,-6,-6,-1,19,74,200,461,977,1987,3976,7902,15559, %T A307311 30105,56778,103833,183765,314882,523007,841752,1305431,1916607, %U A307311 2540433,2609983,381628,-8814988,-36463325,-109113400,-285322360,-689608522,-1579574566,-3477967848 %N A307311 Expansion of Product_{k>=1} 1/(1 + x^k/(1 - x)^k). %C A307311 First differences of the binomial transform of A081362. %C A307311 Convolution inverse of A129519. %H A307311 Robert Israel, <a href="/A307311/b307311.txt">Table of n, a(n) for n = 0..1000</a> %p A307311 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 %t A307311 nmax = 40; CoefficientList[Series[Product[1/(1 + x^k/(1 - x)^k), {k, 1, nmax}], {x, 0, nmax}], x] %o A307311 (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 %o A307311 (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 %o A307311 (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 %Y A307311 Cf. A081362, A129519, A218482, A307310. %K A307311 sign %O A307311 0,4 %A A307311 _Ilya Gutkovskiy_, Apr 02 2019