|
| |
|
|
A013459
|
|
exp(arctan(x)-log(x+1))=1+1/2!*x^2-4/3!*x^3+9/4!*x^4-40/5!*x^5...
|
|
0
| |
|
|
1, 0, 1, -4, 9, -40, 385, -2700, 15505, -145360, 1886625, -19796500, 190881625, -2654379000, 44269902625, -625468889500, 8553276590625, -156119043652000, 3194978818578625, -57041478987070500
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
MATHEMATICA
| With[{nn=20}, CoefficientList[Series[Exp[ArcTan[x]-Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* From Harvey P. Dale, Dec 03 2011 *)
|
|
|
PROG
| (PARI) a(n)=polcoeff(exp(atan(x))/(1+x), n)*n! [From Jaume Oliver Lafont (joliverlafont(AT)gmail.com), Oct 24 2009]
|
|
|
CROSSREFS
| Sequence in context: A149164 A073414 A085110 * A041229 A042887 A053908
Adjacent sequences: A013456 A013457 A013458 * A013460 A013461 A013462
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Patrick Demichel (dml(AT)hpfrcu03.france.hp.com)
|
| |
|
|
