OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..240
MAPLE
a:= n-> (t-> t!*coeff(series(tan(x)/cos(sin(x)), x, t+1), x, t))(2*n+1):
seq(a(n), n=0..17); # Alois P. Heinz, Feb 15 2018
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[x]/Cos[Sin[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Mar 20 2015 *)
PROG
(PARI) x='x+O('x^50); v=Vec(serlaplace(tan(x)/cos(sin(x)))); vector((#v-1)\2 , n, v[2*n-1]) \\ G. C. Greubel, Feb 12 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested by Olivier Gérard, Mar 15 1997
One additional term from and prior Mathematica program replaced by Harvey P. Dale, Mar 20 2015
STATUS
approved