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!)
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
Sequence in context: A367121 A225772 A329478 * A308382 A083931 A133881
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:31 EDT 2024. Contains 371240 sequences. (Running on oeis4.)