A009733 Expansion of tan(x)*cosh(tan(x)).

1, 5, 81, 2477, 120481, 8496245, 817734321, 102873611549, 16372688411713, 3213260867586149, 761792907575450385, 214507625428065409805, 70732793117238811066081, 26987583518243293948764629

Offset

0,2

Links

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

Formula

a(n) = b(2*n-1), b(n) = Sum_{k=1..n} ((-1)^(k-1)+1)/(k-1)!*((-1)^(n-k)+1)*Sum_{j=k..n} binomial(j-1,k-1)*j!*2^(n-j-2)*(-1)^((n+k)/2+j)*stirling2(n,j). - Vladimir Kruchinin, Apr 21 2011

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Tan[x]Cosh[Tan[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jan 14 2015 *)

Prog

(Maxima)
a(n):=b(2*n-1);
b(n):=sum(((-1)^(k-1)+1)/(k-1)!*((-1)^(n-k)+1)*sum(binomial(j-1, k-1)*j!*2^(n-j-2)*(-1)^((n+k)/2+j)*stirling2(n, j), j, k, n), k, 1, n); /* Vladimir Kruchinin, Apr 21 2011 */

Crossrefs

Sequence in context: A115032 A278883 A307376 * A009756 A336807 A188419

Adjacent sequences: A009730 A009731 A009732 * A009734 A009735 A009736

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, Jan 14 2015

Status

approved