|
|
A012617
|
|
E.g.f.: tanh(arcsinh(x)*tan(x)) = 2/2!*x^2+4/4!*x^4-130/6!*x^6-6232/8!*x^8...
|
|
1
|
|
|
2, 4, -130, -6232, -32102, 18014060, 2634330582, -33133771824, -37925465839182, -16267772522154668, 2012491810909723310, 52146402203293345912, 867090565519403243923786, -388470254962420081890970180, 207203200777273698360429465094
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (-1)^(n+1) * sinh(1) * 2^(2*n+2) * n^(2*n-1) / (exp(2*n) * (cosh(Pi*tanh(1)+1) + cosh(Pi*tanh(1)-1) + 2*cosh(1))). - Vaclav Kotesovec, Oct 30 2013
|
|
MAPLE
|
a:= n-> (2*n)! *coeff(series(tanh(arcsinh(x)*tan(x)), x, 2*n+2), x, 2*n):
|
|
MATHEMATICA
|
With[{nn=30}, Take[CoefficientList[Series[Tanh[ArcSinh[x]Tan[x]], {x, 0, nn}], x] Range[0, nn]!, {3, -1, 2}]] (* Harvey P. Dale, Jul 11 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
Definition clarified by and more terms from Harvey P. Dale, Jul 11 2012
|
|
STATUS
|
approved
|
|
|
|