The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A296676

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A296676

Expansion of e.g.f. 1/(1 - arctanh(x)).
(history; published version)

#13 by Alois P. Heinz at Tue Jun 22 15:13:14 EDT 2021

STATUS

editing

approved

#12 by Alois P. Heinz at Tue Jun 22 15:13:12 EDT 2021

LINKS

Alois P. Heinz, <a href="/A296676/b296676.txt">Table of n, a(n) for n = 0..430</a>

#11 by Alois P. Heinz at Tue Jun 22 15:05:56 EDT 2021

MAPLE

# 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

STATUS

approved

editing

#10 by Susanna Cuyler at Mon Dec 18 19:43:09 EST 2017

STATUS

proposed

approved

#9 by Vaclav Kotesovec at Mon Dec 18 17:43:49 EST 2017

STATUS

editing

proposed

#8 by Vaclav Kotesovec at Mon Dec 18 17:43:35 EST 2017

FORMULA

a(n) ~ n! * 4*exp(2) * (exp(2)+1)^(n-1) / (exp(2)-1)^(n+1). - Vaclav Kotesovec, Dec 18 2017

STATUS

proposed

editing

#7 by Robert Israel at Mon Dec 18 14:58:31 EST 2017

STATUS

editing

proposed

#6 by Robert Israel at Mon Dec 18 14:57:30 EST 2017

MAPLE

S:= series(1/(1-arctanh(x)), x, 41):

seq(coeff(S, x, j)*j!, j=0..40); # Robert Israel, Dec 18 2017

STATUS

proposed

editing

#5 by Altug Alkan at Mon Dec 18 13:45:10 EST 2017

STATUS

editing

proposed

#4 by Altug Alkan at Mon Dec 18 13:44:37 EST 2017

PROG

(PARI) x='x+O('x^99); Vec(serlaplace(1/(1+(log(1-x)-log(1+x))/2))) \\ Altug Alkan, Dec 18 2017

STATUS

proposed

editing