[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A012725
Expansion of e.g.f. exp(arctanh(x)*tan(x)) (even powers only).
1
1, 2, 28, 920, 54416, 5056288, 678865856, 124425704832, 29873423298816, 9104340085891584, 3435702339713424384, 1573394503700675106816, 859935938676055185002496, 553085284375423405752918016
OFFSET
0,2
LINKS
FORMULA
a(n) ~ 2 * (2*n-1)! * (4*n)^(tan(1)/2) / GAMMA(tan(1)/2). - Vaclav Kotesovec, Oct 24 2013
EXAMPLE
1 + (2/2!)*x^2 + (28/4!)*x^4 + (920/6!)*x^6 + (54416/8!)*x^8 + ...
MAPLE
S:= series(exp(arctanh(x)*tan(x)), x, 31):
seq(coeff(S, x, j)*j!, j=0..30, 2); # Robert Israel, Aug 07 2023
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Exp[ArcTanh[x]Tan[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Mar 25 2013 *)
CROSSREFS
Sequence in context: A264411 A370378 A009256 * A264637 A352251 A012756
KEYWORD
nonn
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
STATUS
approved