The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A338194

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A338194

E.g.f. A(x) satisfies: A(x) = 1 + Integral (x/A(x))' / (x/A(x)^3)' dx.
(history; published version)

#10 by Vaclav Kotesovec at Fri Oct 16 03:01:45 EDT 2020

STATUS

editing

approved

#9 by Vaclav Kotesovec at Fri Oct 16 03:01:18 EDT 2020

FORMULA

a(n) ~ c * d^n * n! / n^(5/2), where d = sqrt(2/3) * (16911 + 6904*sqrt(6))^(1/4) = 11.072739470812936554345083170072269377492655044795793623262140269629... and c = 5^(7/4) / (3*(3*(1551639 + 633454*sqrt(6)))^(1/4) * sqrt(Pi)) = 0.05692012295541497528352214255257209953140265348...

STATUS

approved

editing

#8 by Vaclav Kotesovec at Fri Oct 16 02:51:15 EDT 2020

STATUS

editing

approved

#7 by Vaclav Kotesovec at Fri Oct 16 02:50:46 EDT 2020

FORMULA

a(n) ~ c * d^n * n! / n^(5/2), where d = sqrt(2/3) * (16911 + 6904*sqrt(6))^(1/4) = 11.072739470812936554345083170072269377492655044795793623262140269629... and c = 0.05692012295541497528352214255257209953140265348...

STATUS

approved

editing

#6 by Vaclav Kotesovec at Thu Oct 15 13:30:25 EDT 2020

STATUS

editing

approved

#5 by Vaclav Kotesovec at Thu Oct 15 13:30:20 EDT 2020

LINKS

Vaclav Kotesovec, <a href="/A338194/b338194.txt">Table of n, a(n) for n = 0..200</a>

STATUS

approved

editing

#4 by Vaclav Kotesovec at Thu Oct 15 13:28:00 EDT 2020

STATUS

editing

approved

#3 by Vaclav Kotesovec at Thu Oct 15 13:24:44 EDT 2020

FORMULA

a(n) ~ c * d^n * n! / n^(5/2), where d = 11.072739470812936554345083170072269377492655044795793623262140269629... and c = 0.05692012295541497528352214255257209953140265348...

#2 by Vaclav Kotesovec at Thu Oct 15 13:13:22 EDT 2020

NAME

allocated for Vaclav Kotesovec

E.g.f. A(x) satisfies: A(x) = 1 + Integral (x/A(x))' / (x/A(x)^3)' dx.

DATA

1, 1, 4, 42, 828, 24840, 1009440, 51906960, 3232993680, 236644571520, 19911894206400, 1893868822137600, 200939416407576000, 23530201619699174400, 3014512836056949427200, 419416309548107359488000, 62979130153042151656608000, 10151678353264190993682432000

OFFSET

0,3

MATHEMATICA

nmax = 20; A = 1; Do[A = 1 + Integrate[D[x/A, x]/D[x/A^3, x], x] + O[x]^nmax, nmax]; CoefficientList[A, x] * Range[0, nmax - 1]!

PROG

(PARI) {a(n) = my(A=1); for(i=1, n, A = 1 + intformal( (x/A)'/(x/A^3 +x*O(x^n))' ); ); n!*polcoeff(A, n)}

for(n=0, 20, print1(a(n), ", "))

CROSSREFS

Cf. A302701, A303064, A338163, A338187, A338188, A338193.

KEYWORD

allocated

nonn

AUTHOR

Vaclav Kotesovec, Oct 15 2020

STATUS

approved

editing

#1 by Vaclav Kotesovec at Thu Oct 15 13:09:11 EDT 2020

NAME

allocated for Vaclav Kotesovec

KEYWORD

allocated

STATUS

approved