0,1

Vaclav Kotesovec, Table of n, a(n) for n = 0..200

F. J. Dyson, N. E. Frankel and M. L. Glasser, Lehmer's Interesting Series, arXiv:1009.4274 [math-ph], 2010-2011.

F. J. Dyson, N. E. Frankel and M. L. Glasser, Lehmer's interesting series, Amer. Math. Monthly, 120 (2013), 116-130.

D. H. Lehmer, Interesting series involving the central binomial coefficient, Amer. Math. Monthly, 92(7) (1985), 449-457.

a(n) ~ sqrt(2) * Pi * n^(n+1) / (3 * exp(n) * (log(4/3))^(n + 3/2)). - Vaclav Kotesovec, May 15 2020

f[n_] := Sum[j^n*3^j/Binomial[2*j, j], {j, 1, Infinity}];

a[n_] := FindIntegerNullVector[{Pi/Sqrt[3], 1, N[-f[n], 20]}][[2]];

Table[s = a[n]; Print[s]; s, {n, 0, 8}] (* Jean-François Alcover, Sep 05 2018 *)

Table[Expand[FunctionExpand[FullSimplify[Sum[j^n*3^j/Binomial[2*j, j], {j, 1, Infinity}]]]][[1]], {n, 0, 20}] (* Vaclav Kotesovec, May 14 2020 *)

S[k_, z_] := Sum[n!*(z/(4 - z))^n* StirlingS2[k + 1, n]*(1/n + Sum[(-1)^p*Pochhammer[1/2, p]/(p + 1)!* Binomial[n - 1, p]*(4/z)^(p + 1)*(Sqrt[z/(4 - z)]*ArcSin[Sqrt[z]/2] - 1/2*Sum[Gamma[l]/Pochhammer[1/2, l]*(z/4)^l, {l, 1, p}]), {p, 0, n - 1}]), {n, 1, k + 2}]; Table[Expand[Simplify[S[j, 3]]][[1]], {j, 0, 20}] (* Vaclav Kotesovec, May 15 2020 *)

Cf. A185672 (r_n), A180875 and A014307 (2^j rather than 3^j).

Sequence in context: A138274 A375945 A375877 * A060913 A246523 A246529

Adjacent sequences: A181371 A181372 A181373 * A181375 A181376 A181377

N. J. A. Sloane, Feb 09 2011, following a suggestion from Herb Conn

More terms from Vaclav Kotesovec, May 14 2020

approved