# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a213108 Showing 1-1 of 1 %I A213108 #6 Jun 05 2012 22:13:19 %S A213108 1,1,3,10,41,76,-2183,-54998,-1045567,-15948296,-157645999,2035442014, %T A213108 217585291057,10000385378452,373813151971001,11759936127330346, %U A213108 269243105500780673,-519586631788126352,-649842878319124373855,-59793494397006229506890 %N A213108 E.g.f.: A(x) = exp( x/A(-x*A(x)) ). %C A213108 Compare the e.g.f. to: %C A213108 (1) W(x) = exp(x/W(-x*W(x)^2)^1) when W(x) = Sum_{n>=0} (1*n+1)^(n-1)*x^n/n!. %C A213108 (2) W(x) = exp(x/W(-x*W(x)^4)^2) when W(x) = Sum_{n>=0} (2*n+1)^(n-1)*x^n/n!. %C A213108 (3) W(x) = exp(x/W(-x*W(x)^6)^3) when W(x) = Sum_{n>=0} (3*n+1)^(n-1)*x^n/n!. %e A213108 E.g.f.: A(x) = 1 + x + 3*x^2/2! + 10*x^3/3! + 41*x^4/4! + 76*x^5/5! - 2183*x^6/6! +... %e A213108 Related expansions: %e A213108 1/A(-x*A(x)) = 1 + x + x^2/2! + x^3/3! - 23*x^4/4! - 419*x^5/5! - 5159*x^6/6! +... %e A213108 The logarithm of the e.g.f., log(A(x) = x/A(-x*A(x)), begins: %e A213108 log(A(x)) = x + 2*x^2/2! + 3*x^3/3! + 4*x^4/4! - 115*x^5/5! - 2514*x^6/6! - 36113*x^7/7! +... %o A213108 (PARI) {a(n)=local(A=1+x);for(i=1,n,A=exp(x/subst(A,x,-x*A+x*O(x^n))));n!*polcoeff(A,n)} %o A213108 for(n=0,25,print1(a(n),", ")) %Y A213108 Cf. A213109, A213110, A213111, A213112, A213113. %K A213108 sign %O A213108 0,3 %A A213108 _Paul D. Hanna_, Jun 05 2012 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE