OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..240 (terms 0..100 from Vincenzo Librandi)
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Tan[x]*Tan[Tanh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Feb 07 2014 *)
PROG
(PARI) x='x+O('x^50); v=Vec(serlaplace(tan(x)*tan(tanh(x)))); concat([0], vector(#v\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
Prior Mathematica program replaced by and one more term from Harvey P. Dale, Feb 07 2014
STATUS
approved