OFFSET
0,1
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..440
EXAMPLE
E.g.f.: A(x) = 2 + x + 3*x^2/2! + 10*x^3/3! + 55*x^4/4! + 311*x^5/5! +...
where
A(x) = 2*(exp(x)+1)/2 * (exp(x^2)+1)/2 * (exp(x^3)+1)/2 * (exp(x^4)+1)/2 *...
The log of the e.g.f. begins:
log(A(x)/2) = (x/2)/(1-x^2) + 5*(x/2)^2/2! + 238*(x/2)^4/4! + 28816*(x/2)^6/6! + 6397168*(x/2)^8/8! + 2322439936*(x/2)^10/10! +...
MATHEMATICA
nmax = 25; Range[0, nmax]! * CoefficientList[Series[2*Product[1/(1 - Tanh[x^k/2]), {k, 1, nmax}], {x, 0, nmax}], x] (* Vaclav Kotesovec, Mar 21 2016 *)
PROG
(PARI) {a(n)=n!*polcoeff(2*prod(k=1, n, (exp(x^k+x*O(x^n))+1)/2), n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 04 2012
STATUS
approved