cp's OEIS Frontend

A180563 E.g.f. A(x) satisfies: P(A(x)) = exp(x) where P(x) = Product_{n>=1} 1/(1-x^n), the partition function.

%I A180563 #11 Oct 28 2017 08:38:06
%S A180563 1,-3,19,-207,3331,-71223,1890379,-59652687,2175761971,-89953773543,
%T A180563 4155502117339,-212122704251967,11857607972675011,-720435277883199063,
%U A180563 47273215180877201899,-3331797538738820992047,251025685429022007354451,-20133640365773761748643783,1712740622904757368673592059
%N A180563 E.g.f. A(x) satisfies: P(A(x)) = exp(x) where P(x) = Product_{n>=1} 1/(1-x^n), the partition function.
%C A180563 Unsigned version is A294330.
%H A180563 Paul D. Hanna, <a href="/A180563/b180563.txt">Table of n, a(n) for n = 1..260</a>
%F A180563 E.g.f.: A(x) = Series_Reversion( log(P(x)) ) where P(x) = Product_{n>=1} 1/(1-x^n).
%F A180563 From _Paul D. Hanna_, Oct 28 2017 (Start):
%F A180563 E.g.f. A(x) satisfies:
%F A180563 (1) Sum_{n>=1} sigma(n) * A(x)^n / n = x.
%F A180563 (2) Product_{n>=1} (1 - A(x)^n) = exp(-x).
%F A180563 (3) Sum_{n>=0} (-1)^n * (2*n+1) * A(x)^(n*(n+1)/2) = exp(-3*x). (End)
%F A180563 Logarithmic derivative of A294332. - _Paul D. Hanna_, Oct 28 2017
%e A180563 E.g.f.: A(x) = x - 3*x^2/2! + 19*x^3/3! - 207*x^4/4! + 3331*x^5/5! - 71223*x^6/6! + 1890379*x^7/7! - 59652687*x^8/8! + 2175761971*x^9/9! - 89953773543*x^10/10! +...
%e A180563 such that  A( log(P(x)) ) = x, where:
%e A180563 log(P(x)) = x + 3*x^2/2 + 4*x^3/3 + 7*x^4/4 + 6*x^5/5 +...+ sigma(n)*x^n/n +...
%e A180563 and P(x) = 1 + x + 2*x^2 + 3*x^3 + 5*x^4 + 7*x^5 + 11*x^6 + 15*x^7 + 22*x^8 + 30*x^9 + 42*x^10 + 56*x^11 + 77*x^12 +...+ A000041(n)*x^n +...
%e A180563 ALTERNATE GENERATING FUNCTION.
%e A180563 L.g.f.: L(x) = x - 3*x^2/2 + 19*x^3/3 - 207*x^4/4 + 3331*x^5/5 - 71223*x^6/6 + 1890379*x^7/7 - 59652687*x^8/8 + 2175761971*x^9/9 - 89953773543*x^10/10 +...
%e A180563 such that
%e A180563 exp(L(x)) = 1 + x - x^2 + 5*x^3 - 45*x^4 + 609*x^5 - 11141*x^6 + 257281*x^7 - 7170355*x^8 + 233936995*x^9 - 8744103079*x^10 +...+ A294332(n)*x^n +...
%o A180563 (PARI) {a(n) = local( LogPx = sum(m=1,n, sigma(m) * x^m/m ) +x*O(x^n) ); n!*polcoeff( serreverse(LogPx), n)}
%o A180563 for(n=1,20, print1(a(n),", "))
%Y A180563 Cf. A000041 (partitions), A000203 (sigma), A294332, A294330.
%K A180563 sign
%O A180563 1,2
%A A180563 _Paul D. Hanna_, Sep 09 2010