OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..430
FORMULA
E.g.f.: 1/(1 + (log(1 - x) - log(1 + x))/2).
a(n) ~ n! * 4*exp(2) * (exp(2)+1)^(n-1) / (exp(2)-1)^(n+1). - Vaclav Kotesovec, Dec 18 2017
EXAMPLE
1/(1 - arctanh(x)) = 1 + x/1! + 2*x^2/2! + 8*x^3/3! + 40*x^4/4! + 264*x^5/5! + ...
MAPLE
S:= series(1/(1-arctanh(x)), x, 41):
seq(coeff(S, x, j)*j!, j=0..40); # Robert Israel, Dec 18 2017
# second Maple program:
a:= proc(n) option remember; `if`(n=0, 1, add(`if`(j::odd,
a(n-j)*binomial(n, j)*(j-1)!, 0), j=1..n))
end:
seq(a(n), n=0..25); # Alois P. Heinz, Jun 22 2021
MATHEMATICA
nmax = 22; CoefficientList[Series[1/(1 - ArcTanh[x]), {x, 0, nmax}], x] Range[0, nmax]!
nmax = 22; CoefficientList[Series[1/(1 + (Log[1 - x] - Log[1 + x])/2), {x, 0, nmax}], x] Range[0, nmax]!
PROG
(PARI) x='x+O('x^99); Vec(serlaplace(1/(1+(log(1-x)-log(1+x))/2))) \\ Altug Alkan, Dec 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 18 2017
STATUS
approved