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 A291695 #7 Feb 16 2025 08:33:51
%S A291695 1,-3,12,-57,304,-1757,10746,-68450,449274,-3016645,20618317,
%T A291695 -142946735,1002722249,-7103064540,50738237140,-365049115546,
%U A291695 2642981328372,-19241453032254,140770867457795,-1034409857616986,7631075823632553,-56497364856268721,419641611512419630,-3126180409889288924
%N A291695 Expansion of the series reversion of Sum_{i>=1} x^i/(1 - x^i) / Product_{j>=1} (1 - x^j).
%C A291695 Reversion of g.f. for A006128.
%H A291695 N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%H A291695 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SeriesReversion.html">Series Reversion</a>
%H A291695 <a href="/index/Res#revert">Index entries for reversions of series</a>
%F A291695 G.f. A(x) satisfies: Sum_{i>=1} A(x)^i/(1 - A(x)^i) / Product_{j>=1} (1 - A(x)^j) = x.
%F A291695 G.f. A(x) satisfies: Sum_{i>=1} i*A(x)^i / Product_{j=1..i} (1 - A(x)^j) = x.
%t A291695 nmax = 24; Rest[CoefficientList[InverseSeries[Series[Sum[x^i/(1 - x^i), {i, 1, nmax}] / Product[1 - x^j, {j, 1, nmax}], {x, 0, nmax}], x], x]]
%t A291695 nmax = 24; Rest[CoefficientList[InverseSeries[Series[(Log[1-x] + QPolyGamma[0, 1, x]) / (Log[x]*QPochhammer[x]), {x, 0, nmax}], x], x]] (* _Vaclav Kotesovec_, Apr 21 2020 *)
%Y A291695 Cf. A006128, A007312, A050393, A176025.
%K A291695 sign
%O A291695 1,2
%A A291695 _Ilya Gutkovskiy_, Aug 30 2017