A009708 Expansion of tan(tan(x)/cos(x)).

1, 7, 177, 10519, 1108833, 180134183, 41643888145, 12982974409271, 5247381641852609, 2667871676330509895, 1666128949779524612977, 1253728661849677130856279, 1118729647152655182634160673

Offset

0,2

Links

Table of n, a(n) for n=0..12.

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Tan[Tan[x]/Cos[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Oct 13 2014 *)

Crossrefs

Sequence in context: A152930 A027489 A098433 * A231490 A231489 A221110

Adjacent sequences: A009705 A009706 A009707 * A009709 A009710 A009711

Keyword

nonn

Author

R. H. Hardin

Extensions

Extended and signs tested by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Oct 13 2014

Status

approved