STATUS
editing
approved
editing
approved
editing
approved
Vaclav Kotesovec, <a href="/A188267/a188267.jpg">Graph - the asymptotic ratio (10000 terms)</a>
a(n) ~ Pi * 2^(4*n + 4) / (n * (log(n) - 16*Pi)^2) * (1 - 2*(gamma + 4*log(2)) / (log(n) - 16*Pi) + (3*gamma^2 - Pi^2/2 + 24*gamma*log(2) + 48*log(2)^2) / (log(n) - 16*Pi)^2), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, Oct 01 2019
approved
editing
editing
approved
G.f.: 1/(1 - x/AGM(sqrt(1 - 16*x), 1)). - Vaclav Kotesovec, Sep 30 2019
approved
editing
editing
approved
a[0] = 1; Flatten[{1, Table[a[n+1] = Sum[Binomial[2*k, k]^2*a[n-k], {k, 0, n}], {n, 0, 20}]}] (* Vaclav Kotesovec, Sep 28 2019 *)
approved
editing
editing
approved