[go: up one dir, main page]

login
A013432
tan(arctanh(x)-arcsin(x)) = 1/3!*x^3 + 15/5!*x^5 + 495/7!*x^7 + 29855/9!*x^9...
1
0, 1, 15, 495, 29855, 2874375, 404150175, 78074371375, 19828087485375, 6403087440228375, 2561659553274989375, 1243334307147747189375, 719656795107349242609375, 489659786386680109910734375
OFFSET
0,3
LINKS
MATHEMATICA
nn = 20; Table[(CoefficientList[Series[-Tan[ArcSin[x] - ArcTanh[x]], {x, 0, 2*nn+1}], x] * Range[0, 2*nn+1]!)[[n]], {n, 2, 2*nn, 2}] (* Vaclav Kotesovec, Feb 06 2015 *)
CROSSREFS
Sequence in context: A013435 A151816 A013431 * A285765 A287070 A062752
KEYWORD
nonn
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
a(0)=0 prepended by Vaclav Kotesovec, Feb 06 2015
Definition modified by Vaclav Kotesovec, Feb 06 2015
STATUS
approved