A293454 G.f.: A(x) satisfies: A( 7*x - 6*A(x) ) = x - 25*x^2.

1, 5, -60, 2700, -164160, 13374720, -1317409920, 151766835840, -19941590880000, 2939103216990720, -479988532980633600, 86040885120291532800, -16800662989461441945600, 3550863374378300399616000, -807913791223460628810301440, 196952399633420675888256368640

Offset

1,2

Links

Vaclav Kotesovec, Table of n, a(n) for n = 1..300

Formula

a(n) ~ (-1)^n * c * (30/log(6))^n * n! / n^(2/3 + 3*log(6)/5), where c = 0.03826354730535151243617...

Prog

(PARI) {a(n) = my(A=x, V=[1, 5]); for(i=1, n, V = concat(V, 0); A=x*Ser(V); V[#V] = Vec( subst(A, x, 7*x - 6*A) )[#V]/5 ); V[n]}
for(n=1, 30, print1(a(n), ", "))

Crossrefs

Cf. A291198, A292812, A292813, A292814, A293455, A293456.

Sequence in context: A218801 A303066 A350360 * A162129 A326726 A367337

Adjacent sequences: A293451 A293452 A293453 * A293455 A293456 A293457

Keyword

sign

Author

Vaclav Kotesovec, Oct 09 2017

Status

approved