OFFSET
0,3
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[x]Tan[Tan[x]]/2, {x, 0, nn}], x] Range[ 0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Mar 18 2023 *)
PROG
(PARI) x='x+O('x^40); v=Vec(serlaplace(tan(x)*tan(tan(x))/2)); concat([0], vector(#v\2, n, v[2*n-1])) \\ Michel Marcus, Mar 13 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested March 1997.
Name edited by Michel Marcus, Mar 13 2019
Prior Mathematica program replaced by Harvey P. Dale, Mar 18 2023
STATUS
approved