OFFSET
0,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..200
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...
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
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Oct 15 2020
STATUS
approved