|
| |
|
|
A009671
|
|
Expansion of e.g.f. tan(sin(x)*cosh(x)), odd powers only.
|
|
2
|
|
|
|
1, 4, 52, 1776, 95184, 8098880, 965358656, 155373092608, 32381834795264, 8483377324590080, 2729934728621511680, 1058257916995852103680, 486461302251310562234368, 261629260950851535726460928, 162758580940261631762847645696
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Vincenzo Librandi, Table of n, a(n) for n = 0..100
|
|
|
MATHEMATICA
|
With[{nn=30}, Take[CoefficientList[Series[Tan[Sin[x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jul 05 2013 *)
|
|
|
CROSSREFS
|
Sequence in context: A343429 A277353 A055974 * A015001 A355612 A317829
Adjacent sequences: A009668 A009669 A009670 * A009672 A009673 A009674
|
|
|
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, Jul 05 2013
Clarified definition by Joerg Arndt, Feb 09 2014
a(14) from Vincenzo Librandi, Feb 09 2014
|
|
|
STATUS
|
approved
|
| |
|
|
