A012925 Expansion of e.g.f. sin(tan(x)+log(x+1)).

0, 2, -1, -4, 18, -118, 495, -3336, 16492, -124390, 697995, -5665356, 31847574, -230282830, 297803779, 15399702624, -527666397480, 11555528032498, -238917247672905, 4947107036570988, -102644658064599590

Offset

0,2

Links

Alois P. Heinz, Table of n, a(n) for n = 0..170

Example

2*x -1/2!*x^2 -4/3!*x^3 +18/4!*x^4 -118/5!*x^5 ...

Maple

a:= n-> n! *coeff(series(sin(tan(x)+log(x+1)), x, n+1), x, n):
seq(a(n), n=0..30);  # Alois P. Heinz, Jun 08 2012

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Tan[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 30 2015 *)

Crossrefs

Sequence in context: A132945 A192494 A013156 * A012930 A013162 A010252

Adjacent sequences: A012922 A012923 A012924 * A012926 A012927 A012928

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Status

approved