[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
login
A035528
Euler transform of A027656(n-1).
23
0, 1, 1, 3, 3, 6, 9, 13, 19, 28, 42, 57, 84, 115, 164, 227, 313, 429, 588, 799, 1079, 1461, 1952, 2617, 3480, 4627, 6111, 8072, 10604, 13905, 18181, 23701, 30828, 39990, 51763, 66822, 86124, 110687, 142039, 181841, 232409, 296401, 377419, 479635, 608558, 770818
OFFSET
0,4
COMMENTS
Also the weigh transform of A003602. - John Keith, Nov 17 2021
FORMULA
a(n) ~ A^(1/2) * Zeta(3)^(11/72) * exp(-1/24 - Pi^4/(1728*Zeta(3)) + Pi^2 * n^(1/3)/(3*2^(8/3)*Zeta(3)^(1/3)) + 3*Zeta(3)^(1/3) * n^(2/3)/2^(4/3)) / (sqrt(3*Pi) * 2^(71/72) * n^(47/72)), where Zeta(3) = A002117 and A = A074962 is the Glaisher-Kinkelin constant. - Vaclav Kotesovec, Oct 02 2015
MATHEMATICA
nmax = 50; CoefficientList[Series[-1 + Product[1/(1 - x^(2*k-1))^k, {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Aug 19 2015 *)
nmax = 100; Flatten[{0, Rest[CoefficientList[Series[E^Sum[1/j*x^j/(1 - x^(2*j))^2, {j, 1, nmax}], {x, 0, nmax}], x]]}] (* Vaclav Kotesovec, Oct 10 2015 *)
KEYWORD
nonn
STATUS
approved