login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A158872 G.f.: A(x) = exp(Sum_{n>=1} A158873(n)*x^n/n) = exp(Sum_{n>=1} (1 + A158873(n)*x)^n*x^n/n). 2
1, 1, 2, 5, 20, 182, 6552, 1517473, 4654013540, 520378069012098, 10766981089503125653501, 448728931430680787386854758969563, 1010943666488949958707946804366787268947495194377 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..12.

EXAMPLE

G.f.: A(x) = 1 + x + 2*x^2 + 5*x^3 + 20*x^4 + 182*x^5 + 6552*x^6 +...

Let L(x) = g.f. of A158873 where exp(L(x)) = A(x), then:

L(x) = x + 3*x^2/2 + 10*x^3/3 + 59*x^4/4 + 796*x^5/5 + 38106*x^6/6 +...

L(x) = (1+x)*x + (1+3*x)^2*x^2/2 + (1+10*x)^3*x^3/3 + (1+59*x)^4*x^4/4 +...

PROG

(PARI) {a(n)=local(A=1+x); if(n==0, 1, for(i=0, n, A=exp(sum(m=1, n, (1+m*polcoeff(log(A+x*O(x^m)), m)*x+x*O(x^n))^m*x^m/m))); polcoeff(A, n))}

CROSSREFS

Cf. A158873 (log).

Sequence in context: A058109 A005331 A261005 * A308522 A216462 A006893

Adjacent sequences: A158869 A158870 A158871 * A158873 A158874 A158875

KEYWORD

nonn

AUTHOR

Paul D. Hanna, Apr 10 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 7 17:57 EST 2023. Contains 360128 sequences. (Running on oeis4.)