|
|
A013269
|
|
E.g.f.: sech(log(x+1)-sinh(x))=1-3/4!*x^4+10/5!*x^5-100/6!*x^6+693/7!*x^7...
|
|
0
|
|
|
1, 0, 0, 0, -3, 10, -100, 693, -5383, 47052, -404934, 3834435, -36703359, 357872502, -3463205876, 30476792955, -198853998991, -654085861096, 67344661591926, -2023504421641677, 49767870277602057
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Sech[Log[x+1]-Sinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 07 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|