The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A241001 G.f. satisfies: A(x)^3 = x + A(x*A(x)^3)^2. 0
 1, 1, 4, 67, 1769, 62499, 2718712, 139232874, 8166885453, 538622419492, 39414368809017, 3167946276763685, 277436199521729856, 26298695327956996229, 2683220559729561789860, 293242531673596767855914, 34182433657089947169431226, 4234005174244450641927919376 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS EXAMPLE G.f.: A(x) = 1 + x + 4*x^2 + 67*x^3 + 1769*x^4 + 62499*x^5 + 2718712*x^6 +... RELATED SERIES. A(x)^2 = 1 + 2*x + 9*x^2 + 142*x^3 + 3688*x^4 + 129072*x^5 + 5581063*x^6 +... A(x)^3 = 1 + 3*x + 15*x^2 + 226*x^3 + 5769*x^4 + 199968*x^5 + 8594032*x^6 +... A(x*A(x)^3) = 1 + x + 7*x^2 + 106*x^3 + 2754*x^4 + 96488*x^5 + 4175632*x^6 +... A(x*A(x)^3)^2 = 1 + 2*x + 15*x^2 + 226*x^3 + 5769*x^4 + 199968*x^5 + 8594032*x^6 +... PROG (PARI) {a(n)=local(A=[1, 1], Ax); for(i=1, n, A=concat(A, 0); Ax=Ser(A); A[#A]=Vec(1+subst(Ax^2, x, x*Ax^3) - Ax^3)[#A]); A[n+1]} for(n=0, 25, print1(a(n), ", ")) CROSSREFS Cf. A240997, A240996. Sequence in context: A003360 A225772 A329478 * A308382 A083931 A133881 Adjacent sequences:  A240998 A240999 A241000 * A241002 A241003 A241004 KEYWORD nonn AUTHOR Paul D. Hanna, Aug 06 2014 STATUS approved

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

Last modified April 3 17:03 EDT 2020. Contains 333197 sequences. (Running on oeis4.)