|
|
A009756
|
|
Expansion of e.g.f. tan(x)/cos(sinh(x)), odd powers only.
|
|
1
|
|
|
1, 5, 81, 2477, 124513, 9330485, 977555697, 136714167389, 24639427576513, 5566295195214053, 1541371979776273041, 513628137925507217549, 202807061788804647209761, 93651309146079155756811029, 50008862201366935181522322225, 30579839563414166184921341412413
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ (2*n-1)! * 4 * tan(arcsinh(Pi/2)) / (sqrt(4+Pi^2) * arcsinh(Pi/2)^(2*n)). - Vaclav Kotesovec, Jan 24 2015
|
|
MATHEMATICA
|
nn = 20; Table[(CoefficientList[Series[Sec[Sinh[x]]*Tan[x], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* Vaclav Kotesovec, Jan 24 2015 *)
|
|
PROG
|
(PARI) x='x+O('x^50); v=Vec(serlaplace(tan(x)/cos(sinh(x)))); vector((#v-1)\2 , n, v[2*n-1]) \\ G. C. Greubel, Feb 12 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|