login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A009737 Expansion of e.g.f. tan(x)*exp(tan(x)). 2
0, 1, 2, 5, 20, 81, 438, 2477, 16680, 120481, 973034, 8496245, 80252732, 817734321, 8859646110, 102873611549, 1258403748432, 16372688411713, 223202277906386, 3213260867586149, 48295209177888356 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
FORMULA
a(n) = Sum_{k=1..n} ( ((1+(-1)^(n-k))/(k-1)!) * Sum_{j=k..n} j! * Stirling2(n,j) * 2^(n-j-1)*(-1)^((n+k)/2+j)*binomial(j-1,k-1) ) ). - Vladimir Kruchinin, Apr 19 2011
a(n) = D^n(x*exp(x)) evaluated at x = 0, where D is the operator (1+x^2)*d/dx. Cf. A052852. a(n) = Sum_{k=1..n} k*A059419(n,k). - Peter Bala, Nov 25 2011
MAPLE
m:= 30; S:= series(tan(x)*exp(tan(x)), x, m+1); seq(j!*coeff(S, x, j), j = 0..m); # G. C. Greubel, Mar 09 2021
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Tan[x]Exp[Tan[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 30 2011 *)
PROG
(Maxima)
a(n):=sum((1+(-1)^(n-k))*sum(j!*stirling2(n, j)*2^(n-j-1)*(-1)^((n+k)/2+j)*binomial(j-1, k-1), j, k, n)/(k-1)!, k, 1, n); [Vladimir Kruchinin, Apr 19 2011]
(Sage)
[factorial(n)*( tan(x)*exp(tan(x)) ).series(x, n+1).list()[n] for n in (0..30)] # G. C. Greubel, Mar 09 2021
(Magma)
R<x>:=PowerSeriesRing(Rationals(), 30);
[0] cat Coefficients(R!( Laplace( Tan(x)*Exp(Tan(x)) ) )); // G. C. Greubel, Mar 09 2021
CROSSREFS
Sequence in context: A027041 A355866 A186767 * A280624 A008983 A286284
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested by Olivier Gérard, Mar 15 1997
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:02 EDT 2024. Contains 371254 sequences. (Running on oeis4.)