login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A292810 G.f. A(x) satisfies: A( 2*x - A(x) - x^2 ) = 2*x - A(x). 3
1, 1, 4, 28, 264, 2992, 38496, 544464, 8298080, 134500672, 2297361024, 41077857152, 765073498368, 14786330691072, 295652808207360, 6101427222041856, 129707991377671680, 2835915576534111232, 63683889838128080896, 1467174199736163264512, 34643692576697214742528, 837694231078769706999808, 20727017363846896783998976 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

LINKS

Paul D. Hanna, Table of n, a(n) for n = 1..200

FORMULA

G.f.: x + G(x)^2 where x = G(x) - G(x)^2 - G(G(x))^2, and G(x) is the g.f. of A177409.

EXAMPLE

G.f.: A(x) = x + x^2 + 4*x^3 + 28*x^4 + 264*x^5 + 2992*x^6 + 38496*x^7 + 544464*x^8 + 8298080*x^9 + 134500672*x^10 + 2297361024*x^11 + 41077857152*x^12 + 765073498368*x^13 + 14786330691072*x^14 + 295652808207360*x^15 +...

such that A( 2*x - A(x) - x^2 ) = 2*x - A(x).

PROG

(PARI) {a(n) = my(A=x, V=[1, 1]); for(i=1, n, V = concat(V, 0); A=x*Ser(V); V[#V] = Vec( subst(G=A, x, 2*x - x^2 - A) )[#V]/(-1) ); V[n]}

for(n=1, 30, print1(a(n), ", "))

CROSSREFS

Cf.  A177409.

Sequence in context: A177403 A196523 A260775 * A284756 A316144 A138272

Adjacent sequences:  A292807 A292808 A292809 * A292811 A292812 A292813

KEYWORD

nonn

AUTHOR

Paul D. Hanna, Sep 24 2017

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 24 03:51 EDT 2019. Contains 326260 sequences. (Running on oeis4.)