cp's OEIS Frontend

A180715 E.g.f.: A(x) = Series_Reversion[ x - Sum_{n>=2} (-x)^n/(n(n-1)/2) ].

%I A180715 #18 Apr 30 2019 03:47:22
%S A180715 1,2,10,84,988,14944,276288,6037088,152213344,4349539776,138913306816,
%T A180715 4903586835328,189581185491072,7966928227397120,361586320101395968,
%U A180715 17626603314884699136,918522989907500809216,50952388648850059964416,2997739520942089756839936
%N A180715 E.g.f.: A(x) = Series_Reversion[ x - Sum_{n>=2} (-x)^n/(n(n-1)/2) ].
%F A180715 E.g.f. A(x) satisfies:
%F A180715 (1) (1+A(x))*log(1+A(x)) = (3*A(x) - x)/2.
%F A180715 (2) log(1+A(x)) = Series_Reversion[(3-2*x)*exp(x) - 3].
%F A180715 (3) Let B(x) = 1+A(x), then: B(x) = exp( B(x)^2 * Integral 1/B(x)^3 dx ). - _Paul D. Hanna_, Dec 06 2013
%F A180715 a(n) ~ n^(n-1) / (sqrt(2) * exp(n-1/4) * (2*exp(1/2)-3)^(n-1/2)). - _Vaclav Kotesovec_, Dec 07 2013
%e A180715 E.g.f.: A(x) = x + 2*x^2/2! + 10*x^3/3! + 84*x^4/4! + 988*x^5/5! + ...
%e A180715 Series reversion of the e.g.f. A(x) begins:
%e A180715 x - x^2 + x^3/3 - x^4/6 + x^5/10 - x^6/15 + x^7/21 - x^8/28 +- ...
%e A180715 Series reversion of log(1+A(x)) begins:
%e A180715 x - x^2/2! - 3*x^3/3! - 5*x^4/4! - 7*x^5/5! - 9*x^6/6! - 11*x^7/7! - ...
%p A180715 series(exp(LambertW(-exp(-3/2)*(3+x)/2)+3/2)-1, x, 31): A:=simplify(%, symbolic): A180715:=n->n!*coeff(A, x, n): # _Vladeta Jovovic_, Sep 28 2010
%o A180715 (PARI) a(n)=if(n<1,0,n!*polcoeff(serreverse(x-sum(k=2, n, (-x)^k*2/(k*(k-1)))+x*O(x^n)), n))
%o A180715 for(n=1,25,print1(a(n),", "))
%o A180715 (PARI) a(n)=if(n<1,0,n!*polcoeff(exp(serreverse((3-2*x)*exp(x+x*O(x^n))-3))-1,n))
%o A180715 for(n=1,25,print1(a(n),", "))
%o A180715 (PARI) a(n)=local(B=1+x);for(i=1,n,B=exp(B^2*intformal(1/B^3+x*O(x^n))));n!*polcoeff(B-1,n)
%o A180715 for(n=1,25,print1(a(n),", ")) \\ _Paul D. Hanna_, Dec 06 2013
%Y A180715 Cf. A074059, A232693.
%K A180715 nonn
%O A180715 1,2
%A A180715 _Paul D. Hanna_, Sep 24 2010